回复:瑞星最近升级后,误报严重,而且会破坏文件!
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有毒!!