用VB寫連線網路磁機程式

參考網址：實踐國小 2017學生網路硬碟快速連線

VB.Net 執行外部程式

學校教學時，習慣用net use 連線網路碟機，讓學生儲存作品。
以前是用bat檔再加上bat轉exe做成。
但這樣的界面會顯示cmd的黑色畫面，操作也不親和。
實錢田國小的快速連線程式是個不錯的方法。
所以就自己寫寫看，重拾Visual Basic

Private Sub Command1_Click()
    Dim ip
    ip = "192.168.0.3"
    
    lbl_msg.Caption = ""
    user = txt_user.Text
    pwd = txt_pwd.Text
    'lbl_msg.Caption = pwd
    Dim RetVal
    Dim cmdx
    cmdx = "net use x: \\" & ip & "\share " & pwd & " /user:" & user
    RetVal = Shell(cmdx)
    'RetVal = Shell("calc.exe")
    'lbl_msg.Caption = Str(RetVal) & cmdx
    
    Dim cmdz
    cmdz = "net use z: \\" & ip & "\homes " & pwd & " /user:" & user
    RetVal = Shell(cmdz)
    'RetVal = Shell("calc.exe")
    'lbl_msg.Caption = Str(RetVal) & cmdz
    
    lbl_msg.Caption = cmdx & vbCrLf & cmdz
End Sub

簡單的方式，功力有限，尚未能加入錯誤檢查的功能。