如果你没有在登陆的时候还输入字符的话，应该以下代码可以实现功能set objshell=wscript.createobject(“wscript.shell”)objshell.run “””E:Program FilesTencentQQBinQQ.exe”””wscript.sleep 1000objshell.AppActivate”登陆QQ2012″wscript.sleep 1000objshell.sendkeys “52xty-111″wscript.sleep 500objshell.sendkeys “{Enter}”wscript.Quit
如果.exe文档没有加密的话，是可以转换的。
第一步，在文件夹地址栏中输入：%userprofile%Local settingstemp进入系统临时文件夹,（其实一般就在c:Documents and SettingsAdministratorLocal SettingsTemp中）
第二步，双击打开.exe文档，第一次打开可能弹出一个界面，需要选择“接受”。
第三步，在不把.exe程序关掉的前提下（可用快捷键显示桌面：有WIN图标的按键+D，否则按ESC键可能退出.exe程序了），切换到Temp文件夹的窗口，会发现多了一个名字是dzp2.Tmp(每次的名字不一样，反正会多一个类似含有dxp数字.tmp的文件夹）的文件夹，进去后，就会发现一个后缀名字是.ppt的文件。
第四步，把里面的PPT文件复制出来，之后才可以关闭.exe放映程序，否则PPT会自己被删掉。或者直接打开PPT文档，然后另存为到自己要保存的位置。
、首先在win7系统下依次点击“开始”按钮-〉“所有程序”-〉“附件”，然后用鼠标右键点击“命令提示符”，选择“以管理员身份运行”，以管理员权限打开一个命令提示符窗口；
2、在命令提示符窗口中输入并执行下面的命令： slmgr.vbs -upk 3、命令执行完毕后，系统中的序列号以及OEM证书都会被清除，我们需要重新启动系统来使清除操作生效； 4、系统重启之后，再次用上面的方法以管理员权限打开命令提示符窗口，然后输入下面的命令来导入你的新序列号： slmgr –ipk 新序列号 5、如果你使用的是品牌机随机的OEM版本系统，还需要用下面命令重新导入你的OEM证书： slmgr.vbs –ilc 证书文件名
6、完成后再次重启电脑，就可以重新激活你的Windows
这里只给出按钮事件的过程，加密算法（函数）你自己想办法：
设加密算法函数名为encryptxt，解密算法函数名为unencryptxt，不带参数。
加密窗口“生成密文”按钮事件：
privatesub生成密文_click()
frame1.caption=encryptxt(text1.text)
endsub
解密窗口“解密”按钮事件：
privatesub解密_click()
frame2.caption=unencryptxt(rrame1.caption)
endsub
1、vb和asp一样都是一种动态语言。只是实现把数据库数据检索显示出来填充到界面上。所以密码框并不是使用vb设置的。通常都会结合html、css实现界面。而密码框正是html的一个标签2、密码框*号是html中的一个密码框【input type=password】实现的。只要把类型设定为密码型type=password即可
vb中设置文本框中显示数据的长度。1、可以直接在文本框属性窗口设置MaxLength的值2、在代码中设置：Private Sub Form_Load()Text1.MaxLength = 10 '设置最大允许显示10个字符End Sub
把文本框的passwordchar属性设置为”*” 可以在属性窗口直接设置，也可以在程序中使用代码设置。 Private Sub Form_Load() Text1.PasswordChar = “*” End Sub
打开网页地址，批处理可以，后面的至少要vbs，混着调用也不方便。建议您：下载个键盘精灵，新建一个工程；选择要运行的浏览器，然后开始录制，输入地址、输入账号、密码。
然后保存这段录制内容，设定一个快捷键，以后开着键盘精灵，直接按这个快捷键，这一系列的过程就都OK了。
使用Excel中的宏命令（VB写的）实现 注：投入使用需要加密，不要跳出调试窗口（尽可能的捕捉掉运行中的异常） 用VBA，首先确保工作薄中有至少两个工作表(sheet)，然后ALT+F11，新建一个用户窗体，用默认名称：userform1，拖放两个标签控件，两个文本框控件，一个按钮控件。在“ThisWorkbook”上双击，在右边输入如下代码： Private Sub Workbook_Open() Sheet1.Visible = xlSheetVeryHidden UserForm1.Show End Sub 然后双击按钮控件，输入如下代码： Private Sub CommandButton1_Click() If TextBox1.Text = “张三” And TextBox2.Text = “123456” Then Unload Me Sheet1.Visible = xlSheetVisible Sheet1.Activate Else MsgBox “请输入正确的用户名和密码！”, vbOKOnly + vbInformation, “提醒” TextBox1.SetFocus End If End Sub 注意：此处假设用户名为“张三”，密码为“123456”
