- ©«¤l
- 109
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 114
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7 Win10
- ³nÅ骩¥»
- Office 2019 WPS
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ²`¦`
- µù¥U®É¶¡
- 2013-2-2
- ³Ì«áµn¿ý
- 2024-8-30
|
¥¼×§ï«eªº®ÉÔ,¤p§Ì¥u¯à¿é¤J¯S©wÈ(¤p§Ì³]©w¬°0),¤~¯àÂ÷¶} inputbox §_«h·|¤@ª½«·sn¨D¿é¤J
«á¨Ó¤p§Ì±N ...
feecshyrnd µoªí©ó 2015-12-12 22:20 - Sub TA()
- Dim X As Variant
- Dim Y As Long
-
- On Error Resume Next
- X = Application.InputBox("½Ð¿é¤J¹wÂsÄý¤§¹q¸£", , "½Ð¿é¤J¼Æ¦r <¨Ò¦p 1 > ©Î¿é¤J 0 ¨ú®ø")
- Do While VarType(X) <> vbBoolean
- Y = -1: Y = CLng(X): X = False
- Select Case Y
- Case 1: Shell "D:\vncviewer.exe 111.99.67.64 /password cimeng"
- Case 2: Shell "D:\vncviewer.exe 111.99.67.84 /password cimeng"
- Case Else: MsgBox "½Ð«·s¿é¤J"
- End Select
- X = Application.InputBox("½Ð¿é¤J¹wÂsÄý¤§¹q¸£", , "½Ð¿é¤J¼Æ¦r <¨Ò¦p 1 > ©Î¿é¤J 0 ¨ú®ø")
- Loop
- End Sub
½Æ»s¥N½X ¤£¦n·N«ä¡A¼Ó¤Wªº¥N½X§Ú§â§An°õ¦æªºShell¾Þ§@µùÄÀ±¼¤F¡C³o¼h¥N½Xק勵±`¤F¡C
Application.InputBox«ö"¨ú®ø"®Éªð¦^False¡A¦ýInputbox«ö¡§¨ú®ø¡¨®Éªð¦^ªºÈ¬O""¡A¤£¾A¥Î¥»¨Ò¡C |
|