无名蜘蛛 发表于 2010-9-15 09:24:23

inputbox可以写入两个数据吗？【已解决】

本帖最后由 无名蜘蛛 于 2010-9-15 11:04 编辑

我声明两个变量，用inputbox给他赋值，默认只可以输入一次。

Ziya 发表于 2010-9-15 09:26:50

可以调用两个inputbox分别进行赋值

3mile 发表于 2010-9-15 09:45:47

是这个意思？楼主的表达太让人费解了，只能靠猜。
Local $var1,$var2
$var=InputBox("","赋值","")
$var1=$var
MsgBox(0,"第一个变量",$var)
MsgBox(0,"第二个变量",$var1)

无名蜘蛛 发表于 2010-9-15 09:48:30

我的意思是Dim $gname $rname
$gnames = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion","RegisteredOrganization")
$rnames = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion","RegisteredOwner")
$gname = InputBox("修改","公司名，可以留空,当前是:"&$gnames,"公司")
$rname = InputBox("修改","用户名，不可留空,当前是:"&$rnames,"用户")
Select
        Case $rname = ""
        MsgBox(0,"修改","用户不能为空")
EndSelect
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion","RegisteredOrganization","REG_SZ",$gname)
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion","RegisteredOwner","REG_SZ",$rname)
MsgBox(0,"修改","修改成功")

无名蜘蛛 发表于 2010-9-15 09:49:36

不成功有错。。

无名蜘蛛 发表于 2010-9-15 09:51:45

对不起我错了，少了个逗号，敲空格了，一个符号搞我一早上，汗。。。

无名蜘蛛 发表于 2010-9-15 09:54:13

还没适应过来，变量与变量之间的有逗号的，我敲空格了。。。
页: [1]
查看完整版本: inputbox可以写入两个数据吗？【已解决】