vbs数字转换

答案:2 悬赏:50

解决时间 2021-11-08 23:55

提问者网友：冥界祭月
2021-11-08 14:39

有什么代码能把Inputbox输入的数字看上去是*实际返回值还是数字？就和输入密码一样。比如输入1234567，看上去是*******其实是1234567？

最佳答案

二级知识专家网友：魅世女王
2021-11-08 14:56

Dim ControlKeyMsgbox InPasswordFunction InPasswordDim IeSet Ie=WScript.CreateObject("InternetExplorer.Application","UE_")With Ie .Navigate "about:blank" .FullScreen=1 .Width=300 .Height=72 .Document.Body.Scroll="no" .Document.Title="PassWord" .Left=Fix((.Document.ParentWindow.Screen.AvailWidth-.Width)/2) .Top=Fix((.Document.ParentWindow.Screen.AvailHeight-.Height)/2) .Document.Body.InnerHTML="

" With .Document.Body.All .I1.InnerHTML="Password:" .I2.InnerHTML=" " Set .Ok.OnClick=GetRef("Ok") Set .No.OnClick=GetRef("No") End With .Document.Body.bgcolor="#D6D3CE" .Document.Body.Style.lineheight="1" .Document.Body.Style.FontSize="12px" .Document.Body.Style.Margin="0px" .Visible=1End WithDo While True WScript.Sleep 200 If ControlKey <> "" Then Ie.Visible=0 If ControlKey = 0 Then x="" Else x=Ie.Document.Body.All.Px.Value End If Exit Do End IfLoopInPassWord=xEnd FunctionSub OkControlKey=1End SubSub NoControlKey=0End Sub 这里有个例子

求采纳

全部回答

1楼网友：短发女王川岛琦
2021-11-08 16:33

a=cstr(b) 即把变量b转换为字符串即文本拜托楼上的简洁点

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息！