類似于2345的保存到桌面那個EXE的功能
ShellExecute 0, "open", "http://www.163.com", 0, 0, 1
剛一生成EXE 360就報病毒直接給刪了，哪位童鞋有更好的代碼，或都有什么好辦法解決？
uj5u.com熱心網友回復：
卸載 360.uj5u.com熱心網友回復：
如果讓你選360和我們這個小功能軟體，你會選誰？uj5u.com熱心網友回復：
支持2樓！！！uj5u.com熱心網友回復：
360是病毒中病毒......uj5u.com熱心網友回復：
暫且不討論360本身了，哪位童鞋有好的解決方法嗎？uj5u.com熱心網友回復：
給用360的人開發軟體是沒有價值的。那些人根本就是社會底層。uj5u.com熱心網友回復：
給360交保護費........uj5u.com熱心網友回復：
支持.
360貌似有個提交功能,可以把你的軟體提交去做鑒定.
不過據說鑒定費比較貴.
另外還有個辦法就是買個數字證書
uj5u.com熱心網友回復：
能添加白名單嗎？ 把你寫程式那整個檔案夾添加進去，它就不會理會了，就像卡巴。uj5u.com熱心網友回復：
偶每次使用360系列軟體都是嚴格按照以下三步：安裝，使用，卸載。
uj5u.com熱心網友回復：
'參考學習來源：WEBBROWSER控制元件去邊框 http://bbs.csdn.net/topics/310013215Private Sub Form_Load()
WebHtml WebBrowser1, "<a href='http://www.163.com' target='_blank'>網易首頁</a>", True
End Sub
'┏〓〓〓〓〓〓〓〓〓 WebHtml,start 〓〓〓〓〓〓〓〓〓┓
'［簡介］：
'把字串顯示在網頁上，不保存到檔案的方式
Sub WebHtml(Web1 As WebBrowser, html As String, Optional NoScroll As Boolean, Optional WaitMax As Long = 20000)
'[mycode_id:1336],edittime:2012/3/20 23:46:08
' On Error Resume Next
Web1.Silent = True
Web1.Navigate "about:blank"
DoEvents
Web1.Document.open
Web1.Document.write html
DoEvents
Web1.Stop
Web1.Document.Close
If NoScroll Then Web1.Document.body.Scroll = "No"
Web1.Document.body.Style.border = "0px"
Web1.Document.body.Style.overflow = "hidden"
'Web1.Document.body.Style.margain = "0px"
'Web1.Document.body.Style.padding = "0px"
End Sub
'┗〓〓〓〓〓〓〓〓〓 WebHtml,end 〓〓〓〓〓〓〓〓〓┛
uj5u.com熱心網友回復：
'參考學習來源：WEBBROWSER控制元件去邊框 http://bbs.csdn.net/topics/310013215
Private Sub Form_Load()
WebHtml WebBrowser1, "<a href='http://www.163.com' target='_blank'>網易首頁</a>", True
End Sub
'┏〓〓〓〓〓〓〓〓〓 WebHtml,start 〓〓〓〓〓〓〓〓〓┓
'［簡介］：
'把字串顯示在網頁上，不保存到檔案的方式
Sub WebHtml(Web1 As WebBrowser, html As String, Optional NoScroll As Boolean, Optional WaitMax As Long = 20000)
'[mycode_id:1336],edittime:2012/3/20 23:46:08
' On Error Resume Next
Web1.Silent = True
Web1.Navigate "about:blank"
DoEvents
Web1.Document.open
Web1.Document.write html
DoEvents
Web1.Stop
Web1.Document.Close
If NoScroll Then Web1.Document.body.Scroll = "No"
Web1.Document.body.Style.border = "0px"
Web1.Document.body.Style.overflow = "hidden"
'Web1.Document.body.Style.margain = "0px"
'Web1.Document.body.Style.padding = "0px"
End Sub
'┗〓〓〓〓〓〓〓〓〓 WebHtml,end 〓〓〓〓〓〓〓〓〓┛
uj5u.com熱心網友回復：
自己寫個加殼軟體，百分之百不會報毒。應為360沒遇見過，最多報警告uj5u.com熱心網友回復：
添加到白名單uj5u.com熱心網友回復：
目測是 ShellExecute 函式被殺了,可以使用其他的函式進行操作,比如要打開一個網頁的話,可以使用 Shell 函式, Shell "cmd.exe /c http://www.baidu.com",vbhide 這樣的話也可以打開網頁.轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/108025.html
標籤：網絡編程