求人写一段vb代码高分悬赏

2025-01-06 02:22:32

推荐回答（5个）

回答1：

Private Sub Command1_Click() '给你一个思路
t1 = """C:\123.vbs""" & "78954"
t2 = """C:\123.vbs""" & "1"
t3 = """C:\123.vbs"""
Print t1
Print t2
Print t3
X1 = InStr(UCase(t1), "VBS""")
t11 = Mid(t1, X1 + 4, Len(t1) - X1)

X2 = InStr(UCase(t2), "VBS""")
t22 = Mid(t2, X2 + 4, Len(t2) - X1)

X3 = InStr(UCase(t3), "VBS""")
t33 = Mid(t3, X3 + 4, Len(t3) - X1)

If t11 <> "" Then Print t11
If t22 <> "" Then Print t22
If t33 <> "" Then Print t33
End Sub

回答2：

Private Sub Form_Load()
MsgBox Command

End Sub

例如：程序编译后放的路径C:\11.exe
在开始->运行或命令行里输入 c:\11.exe 000
看看结果

回答3：

form_load事件
command就是参数

回答4：

dim cmd,i
i=0
cmd=Wscript.Arguments(i)
msgbox cmd

将上面代码粘贴在vbs文件中即可
另外，变量i=0是第一个参数
例如这样运行vbs：："C:\123.vbs" -s -t -m
则当i=0时 cmd="-s",i=1时 cmd="-t"
还有就是不带参数运行却引用参数会出错

回答5：

你想实现通过A执行B
而B不能直接执行?

求人写一段vb代码 高分悬赏

求人写一段vb代码高分悬赏