Hello World | Adel Zhang: 六月 2009

2009年6月21日星期日

关闭qq脚本


On Error Resume Next 
'vbs代码开始---------------------------------------------- 
sub Close_Process(ProcessName) 
On Error Resume Next 
for each ps in getobject("winmgmts:\\.\root\cimv2:win32_process").instances_ '循环进程
if Ucase(ps.name)=Ucase(ProcessName) then 
ps.terminate 
end if 
next 
end sub 

Close_Process("qq.exe")
Close_Process("TXplatform.exe")

Windows XP 内置管理员帐户无法执行任务计划

在使用内置的管理员帐户登录系统并且是空白密码的情况下，在“任务计划”中添加任务时，出现如下提示：

已创建新任务，但可能不能运行，因为无法设置帐户信息.
指定的错误是:
0×80070005: 拒绝访问。
请试着使用“任务”的浏览按钮来定位应用程序.

找到以下3个解决方法，可任选一个：
1.先为这个内置的管理员帐户创建密码，然后到“任务计划”中设置任务的密码即可。
2.如果不想这么麻烦设置密码，可以使用系统提供的 at 命令。
将要执行的任务编辑成一个 bat 批处理文件，添加到系统的启动项中。
注意使用批处理系统会为每一行命令创建一个任务，所以为了避免产生过期的任务计划，可以在批处理文件的开关添加一行：at /delete /yes 用于删除登录前的所有任务计划。
例如：


at /delete /yes
at 23:00 C:\WINDOWS\system32\shutdown.exe -s
at 00:00 C:\WINDOWS\system32\shutdown.exe -s
at 01:00 C:\WINDOWS\system32\shutdown.exe -s

3.如果还要更省事点，可以用如下方法：
观察一下使用 at 命令添加的任务计划，会发现这些任务的“运行方式”都是 NT AUTHORITY\SYSTEM。所以只要将手动创建的任务计划的的“运行方式”设置成 NT AUTHORITY\SYSTEM 这个系统用户即可。
不需要密码。
“仅在登录后运行(L)”这个选项，选不选都可以。选的话，不会提示输入密码；不选的话，提示输入密码，留空即可。

备注：
和任务计划相关的系统服务：
Task Scheduler
Event Log
这两个后台服务必须已启用，而且启动方式应该都是“自动”。“手动”模式的话，系统无法启动服务本身！

如何不用输入用户名密码登陆XP?

在运行中输入control userpasswords2
在打开“用户帐号”中把 “要使用本机用户必须输入用户名和密码”前的钩打掉。按“确定”，提示输入默认登陆的帐号密码。

2009年6月16日星期二

qq2009脚本自动登陆 v2

更新：1.添加测试网络连接部分
2.使用select case 语句


Dim WshShell, QQPath, QQselect
QQPath="""C:\Program Files\Tencent\QQ\Bin\QQ.exe"""
Set WshShell=WScript.CreateObject("WScript.Shell")

If WeekDay(date)=7 Then WScript.Quit
IF WeekDay(date)=1 Then WScript.Quit

''''测试网络连接
Do While 1
Url="ping www.google.com -n 1" 
Return=WshShell.Run( "cmd /c"&Url,0,true) 
If Return=0 then Exit Do '测试成功,不成功则继续等待 
Wscript.Sleep 100
Loop

Set oQQ = WshShell.Exec(QQPath)

Do While 1
If WshShell.AppActivate(oQQ.ProcessID)=True Then '''激活qq窗口   
'''移动光标到帐号密码输入框
Wshshell.sendkeys"{TAB}"
WScript.Sleep 100
wshshell.sendkeys"{TAB}"
WScript.Sleep 100
wshshell.sendkeys"{TAB}"
WScript.Sleep 100
wshshell.sendkeys"{TAB}"
WScript.Sleep 100
wshshell.sendkeys"{TAB}"
WScript.Sleep 100
wshshell.sendkeys"{TAB}"
WScript.Sleep 100
wshshell.sendkeys"{TAB}"
WScript.Sleep 100
wshshell.sendkeys"{TAB}"
WScript.Sleep 200

Select Case WeekDay(date) 
 case 2
        WshShell.SendKeys"qq1"
 WScript.Sleep 500
 wshshell.sendkeys"{TAB}"
 WScript.Sleep 200
 wshshell.sendkeys"password1"
 WScript.Sleep 500
 
 case 3 
        WshShell.SendKeys"qq2"
 WScript.Sleep 500
 wshshell.sendkeys"{TAB}"
 WScript.Sleep 200
 Wshshell.sendkeys"password2"
 WScript.Sleep 500
 
 case 4
 WshShell.SendKeys"qq3"
 WScript.Sleep 500
 wshshell.sendkeys"{TAB}"
 wshshell.sendkeys"password3"
 WScript.Sleep 500
 
 case 5
 WshShell.SendKeys"qq4"
 WScript.Sleep 500
 wshshell.sendkeys"{TAB}"
 WScript.Sleep 200
 wshshell.sendkeys"password4"
 WScript.Sleep 500
 
 case 6
 WshShell.SendKeys"qq5"
 WScript.Sleep 500
 wshshell.sendkeys"{TAB}"
 WScript.Sleep 200
 wshshell.sendkeys"password5"
 WScript.Sleep 500
    
End Select 
'''输入帐号密码完毕
WshShell.SendKeys"{ENTER}" 

Exit Do
END IF
Wscript.Sleep 100
Loop

qq2009脚本自动登陆


Dim WshShell, QQPath, QQselect
QQPath="""C:\Program Files\Tencent\QQ\Bin\QQ.exe"""
Set WshShell=WScript.CreateObject("WScript.Shell")

If WeekDay(date)=7 Then WScript.Quit
IF WeekDay(date)=1 Then WScript.Quit

Set oQQ = WshShell.Exec(QQPath)
 
Do While 1
If WshShell.AppActivate(oQQ.ProcessID)=True Then   

If   WeekDay(date)=2   Then
wshshell.sendkeys"{TAB}"
WScript.Sleep 100
wshshell.sendkeys"{TAB}"
WScript.Sleep 100
wshshell.sendkeys"{TAB}"
WScript.Sleep 100
wshshell.sendkeys"{TAB}"
WScript.Sleep 100
wshshell.sendkeys"{TAB}"
WScript.Sleep 100
wshshell.sendkeys"{TAB}"
WScript.Sleep 100
wshshell.sendkeys"{TAB}"
WScript.Sleep 100
wshshell.sendkeys"{TAB}"
WScript.Sleep 200
WshShell.SendKeys"qq1"
WScript.Sleep 500
wshshell.sendkeys"{TAB}"
WScript.Sleep 200
wshshell.sendkeys"password1"
WScript.Sleep 500
WshShell.SendKeys"{ENTER}"
ELSE
If   WeekDay(date)=3   Then
wshshell.sendkeys"{TAB}"
WScript.Sleep 100
wshshell.sendkeys"{TAB}"
WScript.Sleep 100
wshshell.sendkeys"{TAB}"
WScript.Sleep 100
wshshell.sendkeys"{TAB}"
WScript.Sleep 100
wshshell.sendkeys"{TAB}"
WScript.Sleep 100
wshshell.sendkeys"{TAB}"
WScript.Sleep 100
wshshell.sendkeys"{TAB}"
WScript.Sleep 100
wshshell.sendkeys"{TAB}"
WScript.Sleep 200
WshShell.SendKeys"qq2"
WScript.Sleep 500
wshshell.sendkeys"{TAB}"
WScript.Sleep 200
wshshell.sendkeys"pw2"
WScript.Sleep 500
WshShell.SendKeys"{ENTER}"

ELSE
If   WeekDay(date)=4   Then
wshshell.sendkeys"{TAB}"
WScript.Sleep 100
wshshell.sendkeys"{TAB}"
WScript.Sleep 100
wshshell.sendkeys"{TAB}"
WScript.Sleep 100
wshshell.sendkeys"{TAB}"
WScript.Sleep 100
wshshell.sendkeys"{TAB}"
WScript.Sleep 100
wshshell.sendkeys"{TAB}"
WScript.Sleep 100
wshshell.sendkeys"{TAB}"
WScript.Sleep 100
wshshell.sendkeys"{TAB}"
WScript.Sleep 200
WshShell.SendKeys"qq3"
WScript.Sleep 500
wshshell.sendkeys"{TAB}"
wshshell.sendkeys"pw3"
WScript.Sleep 500
WshShell.SendKeys"{ENTER}"

ELSE
If   WeekDay(date)=5   Then
wshshell.sendkeys"{TAB}"
WScript.Sleep 100
wshshell.sendkeys"{TAB}"
WScript.Sleep 100
wshshell.sendkeys"{TAB}"
WScript.Sleep 100
wshshell.sendkeys"{TAB}"
WScript.Sleep 100
wshshell.sendkeys"{TAB}"
WScript.Sleep 100
wshshell.sendkeys"{TAB}"
WScript.Sleep 100
wshshell.sendkeys"{TAB}"
WScript.Sleep 100
wshshell.sendkeys"{TAB}"
WScript.Sleep 200
WshShell.SendKeys"qq4"
WScript.Sleep 500
wshshell.sendkeys"{TAB}"
WScript.Sleep 200
wshshell.sendkeys"pw4"
WScript.Sleep 500
WshShell.SendKeys"{ENTER}"
ELSE
If   WeekDay(date)=6   Then
wshshell.sendkeys"{TAB}"
WScript.Sleep 100
wshshell.sendkeys"{TAB}"
WScript.Sleep 100
wshshell.sendkeys"{TAB}"
WScript.Sleep 100
wshshell.sendkeys"{TAB}"
WScript.Sleep 100
wshshell.sendkeys"{TAB}"
WScript.Sleep 100
wshshell.sendkeys"{TAB}"
WScript.Sleep 100
wshshell.sendkeys"{TAB}"
WScript.Sleep 100
wshshell.sendkeys"{TAB}"
WScript.Sleep 200
WshShell.SendKeys"qq5"
WScript.Sleep 500
wshshell.sendkeys"{TAB}"
WScript.Sleep 200
wshshell.sendkeys"pw5"
WScript.Sleep 500
WshShell.SendKeys"{ENTER}"


END IF
END IF
END IF
END IF
END IF
Exit Do
END IF
Wscript.Sleep 100
Loop

2009年6月9日星期二

ie右键添加“收藏到qq书签”

安装：

REGEDIT4

[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt]

[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\收藏到QQ书签]

@="http://shuqian.qq.com/favit.html"

卸载：

REGEDIT4

[-HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\收藏到QQ书签]