通過(guò)USB控制外設(shè)電源的方法

　　外部設(shè)備又稱“外設(shè)”，是計(jì)算機(jī)系統(tǒng)中的重要組成部分，主要是指除了計(jì)算機(jī)主機(jī)以外的硬件設(shè)備，可進(jìn)行傳輸、轉(zhuǎn)送、儲(chǔ)存大量的數(shù)據(jù)和信息等內(nèi)容。DIY實(shí)現(xiàn)通過(guò)USB控制外設(shè)電源，下面是學(xué)習(xí)啦小編給大家整理的一些相關(guān)解決方法步驟，希望對(duì)大家有幫助!

　　通過(guò)USB控制外設(shè)電源的方法

　　家里的電腦通過(guò)無(wú)線路由器上網(wǎng)，經(jīng)常長(zhǎng)時(shí)間開(kāi)機(jī)下載一些高清電影、音樂(lè)、軟件，但是無(wú)線路由器不夠穩(wěn)定，時(shí)不時(shí)的就死機(jī)，死機(jī)后不論是無(wú)線還是有線全部都無(wú)法鏈接，只能斷電重啟路由器才能恢復(fù)正常，而且死機(jī)往往是隨機(jī)出現(xiàn)的，有時(shí)候連續(xù)運(yùn)行幾天也沒(méi)事，有時(shí)候重啟了十分鐘就又死掉了，有時(shí)候開(kāi)機(jī)下載了一晚上，早上起來(lái)一看，路由器早就死掉了，電腦白白的運(yùn)行了一夜。如果能夠讓電腦控制無(wú)線路由的電源，在路由器死機(jī)的時(shí)候自動(dòng)重啟它，就不會(huì)出現(xiàn)這種讓人崩潰的事情了，再進(jìn)一步，如果能在下載完成后自動(dòng)關(guān)機(jī)，關(guān)外設(shè)電源(下載軟件里的“下載完成后關(guān)機(jī)”功能，只能關(guān)機(jī)，不能關(guān)外設(shè)電源)，節(jié)能減排，那就更完美了。

　　想要控制電源，簡(jiǎn)單的點(diǎn)的辦法就是使用繼電器，想要用電腦控制，那就需要用到串口，但是串口控制有一個(gè)弊端，就是需要外接直流電源，解決的方法就是使用USB轉(zhuǎn)串口，這樣可以直接從USB口取5V電。思路確定以后，接下來(lái)就簡(jiǎn)單了，在淘寶搜索

　　“USB 繼電器”，找到一個(gè)現(xiàn)成的產(chǎn)品，：

　　這個(gè)繼電器板還是比較小巧的，可以直接改裝到插座里，而且觸電容量有AC250V10A，足夠用來(lái)控制電源插座了。為了增加絕緣性能，需要在電路板部分套上了熱縮管。拍下付款，幾天以后收到貨，DIY開(kāi)工嘍：

首先要找一個(gè)內(nèi)部空間能夠放得下這塊繼電器板的插座，我用的是這款： 這是把插座拆開(kāi)后的樣子：

　　拆開(kāi)插座，正好有一塊空間可以放下，而且長(zhǎng)度剛剛好?？梢钥闯?，這款插座的做工還是非常好的，排線規(guī)矩，該有的都有。

　　這款插座和買的USB繼電器都是采用接線柱的方式接線，所以改造非常簡(jiǎn)單，甚至連焊接都不用。首先，要把原插座里接線柱上接火線的一組兩根線拆下，分別接到繼電器輸出模塊的中間接線柱和“常開(kāi)”接線柱上，然后整理好線，固定好繼電器板的位置。

下面改造插座外殼，為了能把USB接口露出來(lái)，需要在外殼上開(kāi)一個(gè)孔。量好位置，使用鋸條、刀片和鉗子破開(kāi)一個(gè)缺口，然后用銼把邊緣磨光滑，最后蓋好后蓋，擰緊螺絲，這樣，硬件部分就改造完成了。下面是完工以后的樣子：

　　當(dāng)電源插座上的USB線沒(méi)有插在電腦上時(shí)，電源開(kāi)關(guān)負(fù)責(zé)插座電源通斷，與普通插座無(wú)異，當(dāng)USB通過(guò)一根USB延長(zhǎng)線插在電腦上時(shí)，會(huì)在電腦上模擬出一個(gè)串口來(lái)，可以通過(guò)程序向串口發(fā)送指令，來(lái)觸發(fā)繼電器動(dòng)作，實(shí)現(xiàn)交流電的導(dǎo)通和斷開(kāi)。

插上USB延長(zhǎng)線的樣子:

　　接下來(lái)編寫控制軟件，控制流程很簡(jiǎn)單，先通過(guò)API檢測(cè)網(wǎng)絡(luò)狀態(tài)，如果發(fā)現(xiàn)網(wǎng)絡(luò)不通，則打開(kāi)串口，寫入繼電器斷開(kāi)指令，延遲2秒后再寫入繼電器閉合指令，然后關(guān)閉串口。把這個(gè)程序編譯好后，用WINDOWS計(jì)劃任務(wù)調(diào)用，每隔10分鐘或更短時(shí)間自動(dòng)執(zhí)行一次，這樣就實(shí)現(xiàn)了只要發(fā)現(xiàn)網(wǎng)絡(luò)斷開(kāi)，就自動(dòng)重啟路由器的功能。

　　主要代碼清單：

　　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("本機(jī)", "COM號(hào)", " ")

　　Me.Hide

　　Dim ret As Long

　　If InternetGetConnectedState(ret, 0&) = 0 Then

　　‘判斷網(wǎng)絡(luò)連接狀態(tài)

　　'打開(kāi)串口

　　MSComm1.CommPort = chuankou_num

　　If MSComm1.PortOpen = False Then

　　main_form.MSComm1.PortOpen = True

　　main_form.MSComm1.RThreshold = 8 '一次接受的字節(jié)數(shù)

　　main_form.Timer1.Enabled = True

　　End If

　　Call tx_read_frame(1, 1, 0, 0, 0)

　　'斷開(kāi)

　　DoEvents

　　Sleep 1000

　　Call tx_read_frame(1, 2, 0, 0, 0) '吸合

　　'關(guān)閉串口

　　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

　　'向外發(fā)送

　　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

　　程序稍微改造一下，就可以實(shí)現(xiàn)關(guān)機(jī)時(shí)自動(dòng)關(guān)閉外設(shè)電源，或者定時(shí)開(kāi)啟外設(shè)電源，或者按需要是自動(dòng)開(kāi)啟或關(guān)閉外設(shè)電源，有了這個(gè)改造過(guò)的插座，再也不怕無(wú)線路由器死機(jī)了，可以暢快的連夜下載喜歡的高清電影啦。前面用到的繼電器板是最簡(jiǎn)單的一路控制板，還可以使用4路、8路、16路，甚至還可以使用多塊板子級(jí)聯(lián)，以控制更多路繼電器，如果加入溫度、濕度傳感器、壓力傳感器、熱量傳感器、光傳感器等等，配合自己開(kāi)發(fā)的控制軟件，控制家電、燈光、水、暖、窗簾、門禁……，其實(shí)比爾蓋茨豪宅里的智能家居離我們也不算遙遠(yuǎn)啊。