无忧启动论坛

 找回密码
 注册
搜索
系统gho:最纯净好用系统下载站投放广告、加入VIP会员,请联系 微信:wuyouceo
查看: 3393|回复: 4
打印 上一主题 下一主题

本人做的一个电脑防盗小程序请高手帮忙完善

[复制链接]
跳转到指定楼层
1#
发表于 2010-7-20 19:54:44 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
其实最重要的功能已经实现了,但是运行以后开机并不能正常工作,请高手帮我看看到底错在哪里?第一次配置电子信箱的时候是正常的

功能实现很简单就是开机的时候检测电脑是否已经联网,如果电脑已经联网则发送联网的时间和IP地址到指定的电子信箱
结构如下

a.rar
b.txt
ip.vbs
inst.reg
uninst.reg
配置客户电子信箱.bat
email.exe(这个是用WINRAR做的自解压程序,设置为释放到当前目录并替换所有文件,压缩包内包含Email_jm.bat和noblack.vbs)


默认把这些文件安装到系统目录,并运行配置客户电子信箱.bat,
代码如下<>内为文件名(其中a.rar是TXT文件改的扩展名暂时没有好的加密方法)
<a.rar>
'By Jerry Ye
dim time
time = Now
On Error Resume Next
f="用来发送的电子信箱地址"
smtp="smtp.163.com"
u="网易的邮箱帐号"
p="网易的邮箱密码"


<b.txt>
m="东方城电脑防盗登陆提醒"
msg=time
j="C:\ip.txt"
NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
Set Email = createObject("CDO.Message")
Email.From = f
Email.To = t
Email.Subject = m
Email.Textbody = msg
Email.AddAttachment j
With Email.Configuration.Fields
.Item(NameSpace&"sendusing") = 2
.Item(NameSpace&"smtpserver") = smtp
.Item(NameSpace&"smtpserverport") = 25
.Item(NameSpace&"smtpauthenticate") = 1
.Item(NameSpace&"sendusername") = u
.Item(NameSpace&"sendpassword") = p
.update
End With
Email.Send


<ip.vbs>

set http=createobject("Microsoft.XMLHTTP")
ipp="http://www.ip138.com/ip2city.asp"
http.open "get",ipp,false
http.send
ss=bytes2BSTR(Http.responsebody)
intStrA = InStr(1,ss,"[",1)+1
sss=mid(ss,intStrA)
intStrB = InStr(1,sss,"]",1)-1
ss=mid(ss,intStrA,intStrB)
wscript.echo ss

Function bytes2BSTR(vIn)
strReturn = ""
For i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
End If
Next
bytes2BSTR = strReturn
End Function

<inst.reg>

Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run]
"email"="email.exe"

<uninst.reg>

Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run]
"email"=-


<Email_jm.bat>这个是经过加密的P处理

@echo off
@echo off
:a
ping -n 1 www.baidu.com >nul 2>nul
if errorlevel 1 goto a
copy /b a.rar+email.avi+b.txt email.vbs
cscript /nologo ip.vbs>c:\ip.txt
cscript /nologo email.vbs
del c:\ip.txt
del email.vbs
cls

<配置客户电子信箱.bat>

@echo off
title 感谢您使用东方城电脑防盗系统
regedit /s uninst.reg
if exist email.avi (del email.avi) else echo 您还没有配置电子信箱
set mail=
set /p mail=请输入您的电子信箱:
cls
echo t="%mail%">>email.avi
copy /b a.rar+email.avi+b.txt email.vbs
cls
echo 您输入的电子信箱是%mail%,按任意键安装并测试发送
pause
regedit /s inst.reg
start email.exe

[ 本帖最后由 77730191 于 2010-7-20 20:01 编辑 ]

电脑防盗系统.rar

101.83 KB, 下载次数: 49, 下载积分: 无忧币 -2

样本

2#
发表于 2010-7-20 21:56:17 | 只看该作者
精神支持上楼主, 

  我向来的感觉是, 用批处理,vbs,做好系统的优化, 至于盗不盗的到是其次.


  希望楼主能找到一个勤劳的白老鼠.
回复

使用道具 举报

3#
发表于 2010-7-21 13:42:07 | 只看该作者
楼主的想法很不错的,值得鼓励的啊。
回复

使用道具 举报

4#
 楼主| 发表于 2010-7-21 21:39:00 | 只看该作者
其实我愿意自己做白鼠,可是技术不过关啊,得找位高手帮忙弄弄
回复

使用道具 举报

5#
 楼主| 发表于 2010-7-24 08:50:59 | 只看该作者
楼上请到灌水区
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|捐助支持|无忧启动 ( 闽ICP备05002490号-1 )

闽公网安备 35020302032614号

GMT+8, 2024-12-11 02:21

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表