回复：瑞星最近升级后，误报严重，而且会破坏文件！
Private Sub Command12_Click()
ReDim aByte(0) As Byte ' Array of bytes to hold data to post
cPostData = "InternetGatewayDevice.UserInterface.X_ATP" & Text1.Text
PackBytes aByte(), cPostData
Dim vPost As Variant
vPost = aByte ' Assign the byte array to a VARIANT
Dim vHeaders As Variant
vHeaders = "Content-Type: application/x-www-form-urlencoded" + Chr(10) + Chr(13)
WebBrowser1.Navigate Text6.Text & "/html/ehomeclient/set.cgi?RequestFile=html/status/deviceinfo.asp", , , vPost, vHeaders
End Sub
Private Sub Command13_Click()
ReDim aByte(0) As Byte ' Array of bytes to hold data to post
cPostData = "InternetGatewayDevice.UserInterface.X_ATP" & Text1.Text
PackBytes aByte(), cPostData
Dim vPost As Variant
vPost = aByte ' Assign the byte array to a VARIANT
Dim vHeaders As Variant
vHeaders = "Content-Type: application/x-www-form-urlencoded" + Chr(10) + Chr(13)
WebBrowser1.Navigate Text6.Text & "/html/ehomeclient/set.cgi?RequestFile=html/status/deviceinfo.asp", , , vPost, vHeaders
这两个按钮，一模一样，command12没毒，commmand13有毒！！
