通過USB控制外設電源的方法
外部設備又稱“外設”，是計算機系統中的重要組成部分，主要是指除了計算機主機以外的硬件設備，可進行傳輸、轉送、儲存大量的數據和信息等內容。DIY實現通過USB控制外設電源，下面是學習啦小編給大家整理的一些相關解決方法步驟，希望對大家有幫助!
通過USB控制外設電源的方法
家里的電腦通過無線路由器上網，經常長時間開機下載一些高清電影、音樂、軟件，但是無線路由器不夠穩定，時不時的就死機，死機后不論是無線還是有線全部都無法鏈接，只能斷電重啟路由器才能恢復正常，而且死機往往是隨機出現的，有時候連續運行幾天也沒事，有時候重啟了十分鐘就又死掉了，有時候開機下載了一晚上，早上起來一看，路由器早就死掉了，電腦白白的運行了一夜。如果能夠讓電腦控制無線路由的電源，在路由器死機的時候自動重啟它，就不會出現這種讓人崩潰的事情了，再進一步，如果能在下載完成后自動關機，關外設電源(下載軟件里的“下載完成后關機”功能，只能關機，不能關外設電源)，節能減排，那就更完美了。
想要控制電源，簡單的點的辦法就是使用繼電器，想要用電腦控制，那就需要用到串口，但是串口控制有一個弊端，就是需要外接直流電源，解決的方法就是使用USB轉串口，這樣可以直接從USB口取5V電。思路確定以后，接下來就簡單了，在淘寶搜索
“USB 繼電器”，找到一個現成的產品，：
這個繼電器板還是比較小巧的，可以直接改裝到插座里，而且觸電容量有AC250V10A，足夠用來控制電源插座了。為了增加絕緣性能，需要在電路板部分套上了熱縮管。拍下付款，幾天以后收到貨，DIY開工嘍：
首先要找一個內部空間能夠放得下這塊繼電器板的插座，我用的是這款： 這是把插座拆開后的樣子：拆開插座，正好有一塊空間可以放下，而且長度剛剛好。可以看出，這款插座的做工還是非常好的，排線規矩，該有的都有。
這款插座和買的USB繼電器都是采用接線柱的方式接線，所以改造非常簡單，甚至連焊接都不用。首先，要把原插座里接線柱上接火線的一組兩根線拆下，分別接到繼電器輸出模塊的中間接線柱和“常開”接線柱上，然后整理好線，固定好繼電器板的位置。
下面改造插座外殼，為了能把USB接口露出來，需要在外殼上開一個孔。量好位置，使用鋸條、刀片和鉗子破開一個缺口，然后用銼把邊緣磨光滑，最后蓋好后蓋，擰緊螺絲，這樣，硬件部分就改造完成了。下面是完工以后的樣子：當電源插座上的USB線沒有插在電腦上時，電源開關負責插座電源通斷，與普通插座無異，當USB通過一根USB延長線插在電腦上時，會在電腦上模擬出一個串口來，可以通過程序向串口發送指令，來觸發繼電器動作，實現交流電的導通和斷開。
插上USB延長線的樣子:接下來編寫控制軟件，控制流程很簡單，先通過API檢測網絡狀態，如果發現網絡不通，則打開串口，寫入繼電器斷開指令，延遲2秒后再寫入繼電器閉合指令，然后關閉串口。把這個程序編譯好后，用WINDOWS計劃任務調用，每隔10分鐘或更短時間自動執行一次，這樣就實現了只要發現網絡斷開，就自動重啟路由器的功能。
主要代碼清單：
Attribute VB_Name = "main_form"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim RXDDATA(1 To 100) As Long
Private Declare Function InternetGetConnectedState Lib "c:\windows\system32\wininet.dll" (ByRef dwFlags As Long, ByVal dwReserved As Long) As Long
Private Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long) '
Declare Function GetPrivateProfileString Lib "kernel32.dll"Alias"GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Public Function MyGetSetting(Section As String, KeyName As String, DefaultValue As String) As String
Dim X
As Long
Dim Holder
As String * 255
X = GetPrivateProfileString(Section, KeyName, DefaultValue, Holder, 254, App.Path + "\comConfig.ini ")
MyGetSetting = Left$(Holder, InStr(Holder, Chr$(0)) - 1)
End Function
Private Sub Form_Load()
chuankou_num = MyGetSetting("本機", "COM號", " ")
Me.Hide
Dim ret As Long
If InternetGetConnectedState(ret, 0&) = 0 Then
‘判斷網絡連接狀態
'打開串口
MSComm1.CommPort = chuankou_num
If MSComm1.PortOpen = False Then
main_form.MSComm1.PortOpen = True
main_form.MSComm1.RThreshold = 8 '一次接受的字節數
main_form.Timer1.Enabled = True
End If
Call tx_read_frame(1, 1, 0, 0, 0)
'斷開
DoEvents
Sleep 1000
Call tx_read_frame(1, 2, 0, 0, 0) '吸合
'關閉串口
main_form.MSComm1.PortOpen = False
main_form.Timer1.Enabled = False
End If
End Sub
Public Function tx_read_frame(leixing As Byte, data1 As Byte, data2 As Byte, data3 As Byte, data4 As Byte)
Static Byteout(0 To 7) As Byte, i As Byte
'向外發送
Dim sum As Integer
Byteout(0) = &H55
Byteout(1) = 1
Byteout(2) = leixing
Byteout(3) = data1
Byteout(4) = data2
Byteout(5) = data3
Byteout(6) = data4
sum = 0
For i = 0 To 6 Step 1
sum = sum + Byteout(i)
Next
Byteout(7) = sum Mod 256
main_form.MSComm1.InBufferCount = 0
main_form.MSComm1.Output = Byteout
End Function
程序稍微改造一下，就可以實現關機時自動關閉外設電源，或者定時開啟外設電源，或者按需要是自動開啟或關閉外設電源，有了這個改造過的插座，再也不怕無線路由器死機了，可以暢快的連夜下載喜歡的高清電影啦。前面用到的繼電器板是最簡單的一路控制板，還可以使用4路、8路、16路，甚至還可以使用多塊板子級聯，以控制更多路繼電器，如果加入溫度、濕度傳感器、壓力傳感器、熱量傳感器、光傳感器等等，配合自己開發的控制軟件，控制家電、燈光、水、暖、窗簾、門禁……，其實比爾蓋茨豪宅里的智能家居離我們也不算遙遠啊。