VBSĹÖČvO ..
121:ëël
08/02/12 07:24:04 .net
115-116
čŞĆ¤˛´˘Üľ˝B
ĆÍOOÁIJ×ܡ
122:ftHgĚźłľłń
08/03/06 09:58:25 .net
EventQuery.vbs Ěg˘űĹłŚÄžł˘B
Ƣ¤ŠAŽsRČńšB
cscript eventquery.vbs /V /FI "ID EQ 564 AND DATETIME GE 03/06/08,12:00:00AM AND USER NE NT AUTHORITY\SYSTEM" /FO CSV /L
Şą¤˘¤Ěđ˘˝ńšŞAtB^đĚG[ÉČčܡB
ăLĚRÂĚđđÂĘÉPĹŻÎťęźę@żáńĆŽńšŞ
RÂÜĆßéĆ_Ý˝˘ĹEEEB
ť¤˘¤dlČńž夊H
˝ŠŤűÉNZŞ éńž夊H
123:ftHgĚźłľłń
08/03/08 12:41:44 .net
ńČVBSÍmçńŻÇp[^ŞtasklistR}hšĽČ
124:ftHgĚźłľłń
08/04/08 00:03:03 .net
ExcelĹAZÉüͳ꽜ń̤żA 骞ŻĚFđĎŚéAƢ¤đVBSĹs˘˝˘ĹˇB
˝ĆŚÎuA1vĚZÉuVBSĹÖČvOđěęXvĆüÍľÄ Á˝ęA
ťĚ¤żĚwvOxžŻđtHgÔFÉĎXˇéAƢ¤ć¤Č´śĹˇB
ZŕĚśńˇ×ÄžĆĹŤéĚšŞAZŕĚśńĚꪞŻđĎXˇéű@đv˘ÂŤÜšńB
ExcelĚVBAžĆCharactersIuWFNgŞgŚÄ˝ŻÇAąęÍVBSĹÍgŚČ˘Ěž夊H@iŠ¤Ü˘ŤÜšńĹľ˝j
ČÉŠ˘˘ACfA Á˝çANŠłŚÄžł˘ĽĽĽ
125:ftHgĚźłľłń
08/04/08 00:48:23 .net
G[ľÄȢńĹKÉB
̢lYíŐč[¸
Option explicit
Const TARGET_WORD = "vO"
Dim XL, XLBook, XLRange
Set XL = CreateObject("Excel.Application")
Set XLBook = XL.workbooks.open("C:\Documents and Settings\ftHgĚźłľłń\fXNgbv\book1.xls")
Set XLRange = XLBook.sheets(1).Range("A1")
Dim TargetChr
Set TargetChr = XLRange.characters(Instr(XLRange.value, TARGET_WORD),len(TARGET_WORD))
If Instr(XLRange.value, TARGET_WORD) > 0 then
TargetChr.Font.ColorIndex = 3
End if
XLBook.save
XLBook.close
Set XLBook = nothing
XL.quit
126:ftHgĚźłľłń
08/04/08 13:55:16 .net
ć[ľAflŰoľĹżâłšÄžłęI
Ć ébrut@CŞ čܡBGNZĹWJˇéĆUOÚĚZŞ čܡB
ťĚÚĹsvÚŞ éĚĹAÁˇěĆđŠŽĹˇéąĆđlŚÄܡB
*******************************************************
Set objEXCEL = CreateObject("Excel.Application")
Set objBOOK = objEXCEL.Workbooks.open("wčęĆwč.CSV")
objEXCEL .Visible = true
myExcel.Range("B:D").Select
myExcel.Selection.Delete
myExcel.Cells(1,1).Select
********************************************************
TvâGNZ}NL^ČǾĝęçđQlÉâÁÄÝÜľ˝B
ÎŰCSVÍÎpXĹwčľÄ čܡB
ĹŕAÎpXwčľ˝sĹdqqÉČčܡB
bruđÎpXĹwčľÄsvÚđíˇéÉÍAăLXNvgđ
ÇĚć¤ÉĎXˇę΢˘Ĺľĺ¤ŠH
127:ftHgĚźłľłń
08/04/08 16:00:05 .net
ťąÍâÎpXĹwčĹŤéć¤ÉlŚć¤
128:ftHgĚźłľłń
08/04/08 16:18:19 .net
>>123
X čŞĆ¤B
ÇAÎpXÍōȢƢ¤ąĆšËB
129:120š
08/04/08 23:27:32 .net
>>121
čŞĆ¤B˘ÄŕçÁ˝ĚđQlÉľÄv¤ĘčĚŕĚŞĹŤÜľ˝B
CharactersIuWFNgĚStartĆLengthĚwčĚdűđÜżŞÁÄ˝ć¤ĹˇB
CÓĚtH_đIđˇéĆAR}hvvgĚTREER}hÝ˝˘Č}Hrü{IđtH_Čşˇ×ÄĚTutH_ź OR t@Cźđ
ExcelÉŤoˇAƢ¤ĚđěÁÄ˝ńšŞAťĚoÍŕe̤żATutH_źĚŞžŻđFĎŚ˝ŠÁ˝ĚšB
130:120š
08/04/08 23:28:08 .net
>>122
ÎpXĆéćčâÎpXĆé٤ŞČPžĆv¤ńžŻÇĽĽĽH
Excelg¤ĚOńĚć¤ČĚĹAą¤˘¤ĚÍǤŠČB
*******************************************************
Option Explicit
Dim strFilePath
strFilePath = GetFilePathDialog()
msgbox strFilePath
'--------------------------------
' Iđľ˝t@CĚpXđćž
'--------------------------------
Function GetFilePathDialog()
Dim objExcel
Dim strFile
Set objExcel = CreateObject("Excel.Application")
strFile = objExcel.GetSaveAsFilename("", "CSV(J}ćŘč) (*.csv),*.csv")
If strFile = False Then Exit Function
GetFilePathDialog = strFile
Set objExcel = Nothing
End Function
*******************************************************
131:122
08/04/09 13:06:21 .net
>>126
K¸ÎpXĹȢƞßÁÄíŻĹÍȢ̞ŻÇB
NCAgĹćčńžbruđŇWˇé×ČĚËB
Ü AâčűĹńđĹŤéĚžŻÇBBB
ąĚR[hŕpłšÄ˘˝žŤÜˇĹˇB
čŞĆ¤B
132:ftHgĚźłľłń
08/04/10 01:19:36 .net
>>122
pXŞíŠçȢĚČçhbOhbvˇę΢˘śáȢAĽŞČ˘ĚČçŘĽđ˝×ę΢˘śáȢB
>>126
ťĚt@NV˘˝žŤBĹŕGNZObjectŞČ˘ĆgŚČ˘ĚŠ[B
133:ftHgĚźłľłń
08/04/10 02:21:36 .net
GetOpenFileNameĆGetSaveFileNameĹŽŽęÎA^ułńŐéĹÄéźB
APIžŠçGNZ˘çȢB
134:ftHgĚźłľłń
08/04/10 16:40:35 .net
>>128
Ęív
ŠçzzľÄ˘ébruđÁHˇé×ÉAuarđ
NCAgzzĹFXlŚÄ˝B
>>126ĚwEĘčGNZěŞOńĹB
pXŞíŠçȢĚČçhbOhbvˇę΢˘śáȢA
ťęŕAť¤žĆvÁ˝AJĚßăĹľ˝ orz
ĽŞČ˘ĚČçŘĽđ˝×ę΢˘śáȢB
^{͢ŠńB
135:ftHgĚźłľłń
08/04/20 22:38:51 .net
ąńÉżÍBbZ[W{bNXĚ[OK]{^ŞłęéĚđŇ˝¸ÉĚđ
Ŕsłš˝˘ĆŤÍǤˇéĚž夊H
[OK]{^ŞłęČÄŕĄĚbZ[W{bNXiHjđ\Śłš˝˘ĚĹˇŞ c
136:ftHgĚźłľłń
08/04/20 23:39:08 .net
>>131
QÓÉŻśżâĆíęéćB}i[á˝BĄăCđÂŻČB
137:ftHgĚźłľłń
08/04/21 00:21:17 .net
3ÓČçOKB
138:ftHgĚźłľłń
08/04/21 20:15:02 .net
W~[yCWŕťńČžÁÄ˝Č
139:ftHgĚźłľłń
08/04/22 11:02:10 .net
>>134
śÝÖńÍH
žÁÄȢŠ
140:ftHgĚźłľłń
08/05/01 22:03:51 .net
SŇČńšŻÇ˘˘ĹˇŠH
VBSĹńi@Ěđ\i@ÉľÄ\ŚłšévOđłŚÄžł˘B
141:ftHgĚźłľłń
08/05/01 23:48:07 .net
QiĚdgÝŞíŠÁÄčáČPžćB
čvZˇéĚĆŻśąĆđuaÉâçšę΢˘žŻB
ŞŠçPś¸ÂćčoľÄA~QľÄ˘žŻžëB
msgbox unko("10101101")
Function unko(ByVal str)
@@ ret = 0
@@ For i = 1 To Len(str)
@@@@ ret = ret * 2 + CInt(Mid(str, i, 1))
@@ Next
@@ unko = ret
End Function
142:ftHgĚźłľłń
08/05/01 23:52:39 .net
ťęvZá¤
143:ftHgĚźłľłń
08/05/01 23:54:10 .net
EEEĆvÁÄçÁÄéÁۢX}\
144:ftHgĚźłľłń
08/05/02 00:25:00 .net
ŠčÜľ˝`
čŞĆ¤˛´˘ÜˇB
145:ftHgĚźłľłń
08/05/03 11:12:12 .net
ČńŠClntĚĹG[\ŚŞoéńšŞ(^^;
146:ftHgĚźłľłń
08/05/03 11:41:22 .net
>>141
ValÉźľĆŻ
147:˝íľ
08/05/03 13:27:56 .net
eÁˇBǤźćëľB
ńi@Ěđ\i@ÉľÄ\ŚłšévOाČPÉĹŤÜšńŠ
148:ftHgĚźłľłń
08/05/03 13:29:00 .net
äĆčA[
149:˝íľ
08/05/03 13:36:42 .net
ťąđ˝ĆŠ¨č˘˘˝ľÜˇ
150:ftHgĚźłľłń
08/05/03 20:23:26 .net
137ćčǤČPɡéńž
151:ftHgĚźłľłń
08/05/03 21:46:23 .net
142 čŞĆ¤˛´˘Üˇ
ľŠľValĹŕ^ŞęvľÜšńĆĹéńšŞ
152:ftHgĚźłľłń
08/05/03 22:43:18 .net
>>147
¨OłńŞĆÄÂŕȢnĹ˝ęÂmçȢîńăŇžŠç
ążçÍ´\ÍŇÉČç´éđžČ˘ĚđĆč Ś¸đľÄęB
ťęđOńĆľ˝ăĹup\RĹ}EX𮩻¤Ćľ˝vĆąŠç
uValĹŕ^ŞęvľÜšńĆĹévÜĹĚoÜđ
¨OłńŞFŻľÄéunvÉŞŠçšéć¤ÉŕžľëB
153:ftHgĚźłľłń
08/05/04 01:47:23 .net
p\RăĹ}EX𮩻¤ĆľAŽŠľ đNŽľÄ137ĚvOđܸ ÉüÍľAClntđťęČO˘śç¸ValÉĎXľ˝ăA.vbsĹŰśľÄAŔsľć¤ĆˇéĆG[\Śłęܡ
154:ftHgĚźłľłń
08/05/04 01:58:49 .net
lĹnľÄéČ
155:ftHgĚźłľłń
08/05/04 06:09:59 .net
>>149
ValđCIntÉßľÄÄŔsľÄÝëB
CIntÉßľ˝ĆŤĚG[\ŚĚĹuśŞłľ čÜšńBv
Ƣ¤śžŞ éĚČçASpXy[XŞ´öB
sĚćŞĚXy[XđSíľÄŠçÄŔsľÄÝëBŽÍ¸B
>>142
CIntđValÉźľÄŕ毢ɎŠČČ鞯B
VBĹÍŽ˘ÄŕAVBSĹÍŽŠńB
>>150
1sÚĚ10101101đśńĹÍČlĹnľÄ˘éÁÄzčŠH
ĘÉlĹnľÄŕAčÉ^ϡłęÄŽćB
156:ftHgĚźłľłń
08/05/04 06:18:31 .net
>>151
lĹ
Ş˝ˇŹéĆ(Ž\ťÉĎíéŠçH)G[Ĺéć
157:ftHgĚźłľłń
08/05/04 12:33:44 .net
âÁĎč¤Ü˘ŤÜšń
^ŞęvľÜšń"Clnt"ĆĹܡ
p\RŞ2000žŠç
158:ĆŠť¤˘¤íŻĹľĺ¤Š ĆflŰžľĹˇÝÜšńŞAęsÚĚ10101101ÁÄǤ˘¤ÓĄĹˇŠH
159:ftHgĚźłľłń
08/05/04 12:37:01 .net
झĚl^OŤ˝
160:ftHgĚźłľłń
08/05/04 16:39:54 .net
Ş
ťŕťŕuńi@vĚÓĄŞíŠÁĆçńžëH
161:ftHgĚźłľłń
08/05/04 17:22:21 .net
ĆąëŞ2ŕińžĆvÁÄ˝ĚÉCŞt˘˝çşŞÁĢ˝Ć˘¤B
162:ftHgĚźłľłń
08/05/04 19:25:19 .net
2iÍíŠÁÄܡŞ
163:ftHgĚźłľłń
08/05/04 22:40:33 .net
>>152
ˇÜńŞAOńĆľÄ10101101đťĚÜÜƾĢ˝B
mŠÉ
ŞŚ˝çG[ÉČéB
16
Š17
碪ćŘčĚ͸B
żČÝÉŽ\ťĹÍČAÎ\ťČB
>>153
wEŞÔáÁÄ˝B
˘˘ŠAClntŞÔᢞBCIntžB
2śÚÍŹśĚL(G)ĹÍČAĺśĚI(AC)žB
¢Ĺɢ¤ĆAńi@Ĺ\ťľ˝lđńiĆž¤ńžB
164:ftHgĚźłľłń
08/05/05 03:45:40 .net
ąĚďbEEEşÁ˝˘QiŞíŠÁÄȢČB
165:ftHgĚźłľłń
08/05/05 04:16:03 .net
V
[Xg~O¤ßŚ
166:ftHgĚźłľłń
08/05/05 17:06:00 .net
ˇ˘ÜšńXPĹâÁ˝çĹŤÜľ˝
ťąĹüÍľ˝ńiđ\iÉĎŚévOÍǤâéńšŠH
167:ftHgĚźłľłń
08/05/05 17:20:48 .net
ńiŕ\i੽ڪ᤾ŻĹĄÍŻś
žŠçϡÍKvȢ
168:136
08/05/05 17:27:22 .net
ČńŠĎČŹęěÁżáÁġÜń
Ƣ¤Š>>161ČşťąÉßéH
169:ftHgĚźłľłń
08/05/05 17:39:30 .net
inputboxđǹɢęčᢢ̊íŠčÜš
170:ftHgĚźłľłń
08/05/06 12:29:27 .net
¨Ü˘AşÁ˝˘şÁ˝˘AşĽ``Á˝˘QiŞíŠÁÄȢžëB
171:ftHgĚźłľłń
08/05/06 14:22:30 .net
¨Ü˘çÉžČ`
ÓÚÓĹ`
172:ftHgĚźłľłń
08/05/06 15:42:50 .net
ĹPUiđ\ŚB˝ĆŚÎ
msgbox &hFE
ơéĆAĘÍ 254 Ć\ŚłęܡB
ŮńĆÍ FE Ě͸šB
ą¤˘¤oOŞ éŠçCđÂŻ˝Ů¤Ş˘˘ćB
173:ftHgĚźłľłń
08/05/06 15:47:27 .net
ťęÍoOEEEEĆÍvŚČ˘ĚžŞB{ĚdlĆá¤ĆŠH
174:ftHgĚźłľłń
08/05/06 17:18:09 .net
>>168 ĎÔxŠ
175:ftHgĚźłľłń
08/05/06 17:59:41 .net
ÓĄíŠçń
FEÁÄ\Śľ˝˘ĚČç
msgbox "FE"
ÁčᢢśáńB
ŠŞĹ &h ¯Ĩ˘ÄA˝žÁÄńžëH
msgbox hex(&hfe)
ĹࢢŻÇ
176:ftHgĚźłľłń
08/05/06 18:31:12 .net
lĚ&HFE Ć śńĚ"FE" ĚᢡçíŠçńcިéĚŠB
177:ftHgĚźłľłń
08/05/06 21:58:28 .net
>>160
šĽI
Ą L˘Ş`íÁÄŤ˝ć
178:ftHgĚźłľłń
08/05/11 04:40:36 .net
6É}l[WpA§AXL[AT§AXL[Ě3ŞÜŕz2000~ĚuVXgFXOvvđJĂ
URLŘݸ(system-trading.jp)
[VXgFXOvĆÍ]
NbNŘŞńˇéFXĚfćřÂŤđpľÄAVXeg[hÉ`WĹŤéFXćřĚOvšB
¨ql˛ŠgĹ쏾˝VXeg[hĚ@\đ]żˇéuVXg\tgĺvĆg[hűvđŁ¤ug[hĺvĚ2ĺ\ŹĆČÁĨčܡB
522úćčo^ótJnA62úćčOvJnĚ\čBÜŕz2000~B
@@fg[hĚDŇÉÍÜŕOS~Şv[głęܡB
Ľg[hĺ
úY500~ĹAfćřĚg[hűvđŁÁĢ˝žŤÜˇB
URLŘݸ(www.fx-gp.com)
ĽÜŕz
ĄĐˇÁĘÜiVXg\tgćżij 10,000,000~
VXg\tgĺÜ@1Ę300~@2Ę100~@3Ę50~
g[hĺÜ@1Ę300~@2Ę100~@3Ę50~
Oú
179:MVPÜ@50~ ăúMVPÜ@50~
180:ftHgĚźłľłń
08/05/11 13:31:12 .net
RsyNÁÄnžČAÜĹÇńžB
181:ftHgĚźłľłń
08/06/17 04:14:05 .net
InputBoxÖgÁÄAüÍl𞽢ńšŞA
255oCgČăĚüÍlÁÄłłęéĚž夊H
đôŞ ęÎłŚÄžł˘BB
InputText = InputBox("śńđü;Ğł˘")
Dim Fs
Set Fs=CreateObject("Scripting.FileSystemObject")
Set newFile = Fs.CreateTextFile("0000test0000.txt",True)
newFile.WriteLine(InputText)
182:ftHgĚźłľłń
08/06/17 09:13:27 .net
jR[hĹQTSś+CR+LFĚAĹĺlđ´ŚÄ˘ÜˇB
183:ftHgĚźłľłń
08/06/17 22:19:12 .net
VBScriptđgÁÄAHTTPXe[^XR[hđ枡éű@đTľÄ˘ÜˇB
éCÓĚWebćĘÉÎľÄXNvgĹNGXgđs˘AHTTPXe[^XR[h(200 ok )đ
枡éű@Í čܡž夊B
ÇČ˝Š˛śmĚűŞ˘çÁľá˘Üľ˝çA˛łöşł˘B
184:>>177
08/06/17 22:24:08 .net
ˇ˘ÜšńBXᢞÁ˝×AWSHĚXÉھܡB
185:ftHgĚźłľłń
08/06/19 14:20:45 .net
vbsĹAtbs[ĚtH[}bgđmFČľĹŔs
ˇé˝ß čܡŠHA:\ĹčĹB
186:ftHgĚźłľłń
08/06/19 18:20:54 .net
>>179 ˝ĹmFľČĢ˘ĚŠH
187:ftHgĚźłľłń
08/06/19 20:40:04 .net
VBSÉÍt@CÉANZXˇé˝ßˇç čÜšńć
188:ftHgĚźłľłń
08/06/21 07:38:22 .net
ťęđž¤ČçCžęÉŕt@CÉANZXˇé˝ßÍł˘Č
189:ftHgĚźłľłń
08/07/19 09:45:08 .net
ąąÜĹÖť¤ČR[hŞwÇȢEEE
190:ftHgĚźłľłń
08/07/19 11:24:47 .net
>>183ŞÖť¤ČR[hđŤÜ靤š
191:ftHgĚźłľłń
08/07/27 01:18:22 .net
Ćč Ś¸ExcelAddinđCXRˇéR[hĆŠlnkENbNĹNćfBNg\ŚĆŠ
éŻÇův éŠH
192:ftHgĚźłľłń
08/07/30 21:22:27 .net
test1.bin
test2.bin
test3.bin
ąęçt@CđIđóÔÉľÄAVBSt@CÉD&DˇéĆA
t@CźÉ\[gľÄAPÂĚt@CɡéÉÍAǤľ˝çǢĚž夊H
PÂĚt@CđAwčTCYÉŠŽŞˇéVBSÍĹŤ˝ĚšŞA
ťĚt̹ƪōéVBSt@Cđě轢BBB
ADODB.Recordset
ADODB.stream@ ˝čđgŚÎÂ\H
193:ftHgĚźłľłń
08/07/30 21:26:24 .net
copy /b
194:ftHgĚźłľłń
08/07/30 21:38:44 .net
>>185
QlÉłšÄ˘˝žŤ˝
195:ftHgĚźłľłń
08/08/13 09:09:42 .net
CIM_DataFileNXđp˘ÄAt@CĚeíîńđćžľ˝˘ĚšŞA
uŕžvĚvpeBđ枡éĆŤÉwčˇévpeBźŞŞŠčÜšńB
ďĚIÉÍAáŚÎ\eBAiC:\WINDOWS\system32\sol.exejđ
ENbNľÄ\ŚłęévpeBĚuo[Wîńv^uĚQsÚÉ
uŕžFSolitaire Game AppletvĆ\ŚłęܡŞAąĚlđćžľ˝˘ĚšB
t@Co[WČÇÍAuVersionvvpeBĹćžĹŤÄ¨čܡB
˛śmĚűA˛łŚ¨č˘vľÜˇB
196:ftHgĚźłľłń
08/08/13 18:30:02 .net
189šB
JLRˇéĆąëÔጽݽ˘ČĚĹAÚŽľÜˇBX~}ZB
197:ftHgĚźłľłń
08/08/17 21:29:36 .net
>>186-187
ěÁÄÝ˝B
sdir = "C:\temp\" 'oÍćtH_
soutfb = "output.bin" 'oÍt@Cź
set osh = createobject("wscript.shell") 'VFIuWFNg
set ofs = createobject("scripting.filesystemobject") 't@CIuWFNg
set oarg = wscript.arguments 'řIuWFNg
stmpf1 = "temp1.txt" 'ęt@C
stmpf2 = "temp2.txt" 'ęt@C
'hbOhbvľ˝t@Cźđęt@CÉi[
set out = ofs.createtextfile(sdir & stmpf1, true)
for each s in oarg
@@out.writeline s
next
out.close
198:ftHgĚźłľłń
08/08/17 21:31:54 .net
iÂĂŤj
't@CźĚXgđ\[gľÄęt@CÉi[
osh.run "cmd /c sort " & (sdir & stmpf1) & " > " & (sdir & stmpf2), 0, true
set oin = ofs.opentextfile(sdir & stmpf2)
s = oin.readline
'oCit@CĚRs[
ofs.copyfile s, (sdir & soutfb)
do until oin.atendofstream
@@s = oin.readline
@@osh.run "cmd /c copy /b " & (sdir & soutfb) & "+" & s & " " & (sdir & soutfb), 0, true
loop
oin.close
'ęt@CĚÁ
ofs.deletefile sdir & stmpf1
ofs.deletefile sdir & stmpf2
msgbox "OK"
ŞČăAŔsÍsŞĚóđźpÉB
199:ftHgĚźłľłń
08/08/17 22:04:23 .net
copyÍŤ\Iɾ太ȢŠŕľęńŞsortŽç˘ŠOĹâęć
200:ftHgĚźłľłń
08/08/21 21:13:21 .net
VBSÉÄASNMPîńĚćžđlŚÄéńšŞA
wsnmp32.dll@đpˇéąĆÍōȢńž夊H
dynwrap.dll@Ƣ¤bp[HŕgŚČ˘Ěž夊
201:ftHgĚźłľłń
08/08/31 18:59:35 .net
set shell32 = createobject("shell.application")
set fso = createobject("scripting.filesystemobject")
function recyclebin(pathname)
> path = fso.getparentfoldername(pathname)
set there = shell32.namespace(path)
set submenus = there.items.item(fso.getfilename(pathname)).verbs
I = 0
for each method in submenus
if strcomp(method, "í(&D)") = 0 then
submenus.item(I).doit()
end if
I = I + 1
next
end function
recyclebin wscript.arguments(0)
t@CâtH_đhbOAhhbvˇéĆA
˛Ý ÉÚˇXNvgBdeletefile ĆŠÍ
iÉÁŚżá¤ĚĹsŔžDDDB
202:ftHgĚźłľłń
08/08/31 19:01:10 .net
ˇÜńA>@ÍAČľB
203:ftHgĚźłľłń
08/08/31 21:05:24 .net
ťęA˛Ý ĚV[gJbgĆä×ÄǤÖČĚH
204:ftHgĚźłľłń
08/08/31 21:32:26 .net
t@CđhbOAhhbvĢ¤ĚÍ
TvŽěĚ˝ßĹA
ÖđXNvgŕĹ
deletefile ĚăíčÉg˘ÜˇB
205:ftHgĚźłľłń
08/09/16 20:29:18 .net
hail2u.net - Weblog - VBScriptĹMSN MessengerĚ\ŚACRđĎXˇé
URLŘݸ(hail2u.net)
ąĚMessenger.UIAutomation.1đgÁÄźÉŕFXoȢŠČAĆvÁÄ
hL
gđTľ˝ńšŞAǤÉŕŠÂŠç¸cB
ÇČ˝ŠÚײśśĚű˘çÁľá˘ÜšńŠH
SamurizeĆgÝíšÄAfXNgbvŠçęĹźOĆŠXe[^XĎŚçę˝çc
206:ftHgĚźłľłń
08/10/05 15:56:24 .net
VBScriptĆŠJScriptĹnĄÉWSHĚvO˘ÄŤ˝ĚÉEE
IronPtythonČńÄǤĹࢢB
Ģ¤ąĆĹVBScriptâJScriptđJˇéÂŤÝ˝˘Čc[ÁÄȢĚH
GŰŢÄéńžŻÇAś@`FbN⏜ĺśĎˇĹsÖž太ȢńžŻÇB
207:ftHgĚźłľłń
08/10/05 16:31:17 .net
ťńČđsđąĚXĹž¤RÍEEEÂÜč
VBSĹěęĆH
208:ftHgĚźłľłń
08/10/05 18:25:17 .net
¤ńBĚŠçĚVBSâJS[UđśŤLΡ˝ßÉŕžęgŁˇčᢢĚÉƨŕÁÄB
209:ftHgĚźłľłń
08/10/05 19:01:39 .net
ęcéžë¤ŻÇVBSÍŕ¤iťľČ˘ĹľĺB
ŻnĆľÄVBAÍĄĚĆąëăí誳˘Šç˝ĎíéŠŕľęńŞB
WSHÍŠĚÄçę˝qEEE
JScriptÂ[ŠJavaScriptČçEclipseĹgŚéĆv¤ŻÇAťęśá_HžćËi
210:ftHgĚźłľłń
08/10/05 20:01:20 .net
˘âBíÄÍAWSHĆľÄg˘
211:˝˘ńâB ĹŕAVisualWebDeveloperExpressEditionÉWSHpĚev[gŞ éÝ˝˘žB CXRľćÁĆB
212:ftHgĚźłľłń
08/10/05 21:16:21 .net
´ÍTNGfB^Ĺľąľą˘ĆéíB
ĹŕAVisualWebDeveloperExpressEditionÉWSHpĚev[gŞ éÝ˝˘žB
ťńČŕńŞ éńŠBťĚ¤żüęÄÝćÁĆB
213:ftHgĚźłľłń
08/10/06 05:31:22 .net
WebDevelopper
214:ftHgĚźłľłń
08/10/23 19:41:52 .net
a.vbsĹč`ľ˝Functionđb.vbsĹg˘˝˘ŞA
ǤâÁ˝ç˘˘H
215:ftHgĚźłľłń
08/10/23 19:55:52 .net
aĆŠbÁÄ˝Ha.vbsĆb.vbsÁÄąĆH
ÂWindows XNvg t@C (.wsf)
216:208
08/10/23 19:58:58 .net
Xľ˝ç>>207ĚÓĄťÁ˝
wsft@CđěÁÄvbst@CđCN[hľ˝ç˘˘ćB
ŕľÍXNvgt@CđÇÝńĹExecuteGlobalˇéŠB
217:ftHgĚźłľłń
08/12/11 03:39:01 .net
e[uŠç14
Ĺćžľ˝út(áF20081210140059)ÉA
{Pbľ˝út(20081210140100)đ枡éÉÍǤľ˝ç˘˘ĹˇŠH
windowsANZXOĚđŞf[^ĆľÄi[łęĢée[uŠçĹVpđútđćžľA
ťąŠç1băĚútĹwindowsANZXOđÄőľ˝˘ĚšB
218:ftHgĚźłľłń
08/12/11 10:47:10 .net
枡éśáČÄŠŞĹvZˇę΢˘ńśáËH
219:ftHgĚźłľłń
08/12/12 21:44:05 .net
>>211
X čŞĆ¤˛´˘ÜˇB
bvZĚĹŤéÖ𩵽ĚĹAľÄÝܡI
220:ftHgĚźłľłń
08/12/13 22:10:34 .net
VBSĚąĆŨŻč˘˝˘ĚšŞcÇČ˝Š¨č˘ľÜˇI
221:ftHgĚźłľłń
08/12/13 22:22:50 .net
pŠČ˘âÂČńŠmçńí
222:ftHgĚźłľłń
08/12/15 23:48:05 .net
ŻÄşł˘B
25ÂĚGNXv[đNŽłšéć¤ÉvO~Oľ˝ŕĚŞ
éĚšŞA3Ě{ĚGNXv[[ŞNŽľ˝ĆŤĚÝÉ
c[o[đ\Śłšéć¤Éľ˝˘ĚšŞ
ÇĚć¤ÉA˝ßˇę΢˘Ěž夊ĽĽĽB
223:ftHgĚźłľłń
08/12/16 00:32:48 .net
>>215
ŻÄşł˘B
25{Ě`|đuNłšéć¤ÉvO~Oľ˝ŕĚŞ
éĚšŞA3Ě{Ě`|ŞuNľ˝ĆŤĚÝÉ
ďsđ\Śłšéć¤Éľ˝˘ĚšŞ
ÇĚć¤ÉA˝ßˇę΢˘Ěž夊ĽĽĽB
ÁÄ碢ÝÓ
224:ftHgĚźłľłń
08/12/16 01:22:01 .net
>>215
ixAcɡŻ
225:ftHgĚźłľłń
08/12/16 01:35:15 .net
>>215
˝ĆŚÎ 26475
ąĚe
đŤˇĆ 2+6+4+7+5 = 24
łçÉe
𫷠2+4 = 6
ąĚl 6 Ş 3 Ě{ČçÎ
26475 Í 3 ĹčŘęéB
226:ftHgĚźłľłń
08/12/16 10:08:16 .net
ŮŮŁ
227:ftHgĚźłľłń
08/12/24 08:41:03 .net
ˇ˘Üšń@ÇflČńšŞćŠÁ˝çłŚÄžł˘
CreateObject("WScript.Shell").Run@ĹŔsľ˝ob`t@Cđâ~ˇéXNvgÁÄǤńž夊H
228:ftHgĚźłľłń
09/01/09 14:14:10 .net
>>220
ĎÁĆv˘Â˘˝ĚŞťĚDOSÍńĹ
sendkeyĹ^C¨Yđéç˘
ŕÁĆŤÄX}[gČĚÍźĚLŻŇÉCšé
229:ftHgĚźłľłń
09/01/29 14:36:12 .net
Dim fileXML, objXML
Dim node, item, mesg
fileXML = "35640864.xml"
Set objXML = WScript.CreateObject("MSXML.DOMDocument")
objXML.load(fileXML)
For Each node In objXML.getElementsByTagName("Message")
mesg = ""&
id = node.getAttribute("SessionID")
For Each item In node.childNodes
If mesg <> "" Then
mesg = mesg & ","
End If
mesg = mesg & item.nodeName & ":" & item.firstChild.nodeValue
Next
WScript.Echo mesg
Next
XMLĚqm[hŞGG\ŚłęȢEEE
žEžęŠEEE
230:ftHgĚźłľłń
09/01/29 22:07:43 .net
>>220
ťĚob`t@CĚ^CgđtitleR}hĹKÉęÓČŕĚÉĎXľÄ¨˘Ä
ęv
231:ˇévZXćžľÄkillˇę΢˘ńśáËH
232:ftHgĚźłľłń
09/01/29 22:32:01 .net
>>222
\ŚĹŤ˝ŠČH
<?xml version="1.0" encoding="UTF-8"?>
<root>
@@<Message SessionID="0001">
@@@@<Icon>îń</Icon>
@@@@<Text>îńbZ[W</Text>
@@</Message>
@@<Message SessionID="0002">
@@@@<Icon>x</Icon>
@@@@<Text>xbZ[W</Text>
@@@@<Param>pP</Param>
@@@@<Param>pQ</Param>
@@</Message>
</root>
233:ftHgĚźłľłń
09/01/30 10:58:34 .net
ǹſâľÄ˘˘ŠŞŠçȢĚĹąąĹżâłšÄşł˘I
vbscriptĹmapiđgÁÄT[oŠç[đóMˇévOđěÁÄܡB
URLŘݸ(72.14.235.132)
đŠČŞçěÁÄéńšŻÇA
G[R[hF8004011DŞoĢÁÄܡc
ÇČ˝Š¨mbđqظŻČ˘Ĺľĺ¤ŠH
basp21ÍgíȢűüŨ袾ܡI
234:ftHgĚźłľłń
09/01/30 20:14:39 .net
BASP21ÍSMTP/POP3T[oAMAPIÍExchangeT[oÉg¤ŕĚžć
235:ftHgĚźłľłń
09/02/15 12:59:52 .net
IEĹA^CÉURLđ枡éVBSđ˘Ä˘Üˇ
ŹęÍIEŞNŽľÄȢƍŔsˇéĆhIEŞ\ŚłęĢܚńhĆ
bZ[WđoľIš
IEŞNŽľÄ˘éĆŤŔsˇéĆobNOEhĹ
10b˛ĆĚWeby[WĚURLđćžľIEđIšłšéĆĄÜĹćžľ˝URLđ
bZ[WĹ\ŚľIš
ąńČ´śĹ˘˝ńĹˇŞ "IEđIšłšéĆĄÜĹćžľ˝URLđ
bZ[WĹ\ŚľIš" ąĚŞŞ¤ÜŻÜšńB
ďĚIÉÍIEŞIšˇéĆIuWFNgŞóÉČé͸ČĚĹťĚÓđ¢Ä
í´ĆG[đNąľG[ÔđćžľťĚG[žÁ˝çIš
łšéć¤Č´śĹ˘˝ńĹˇŞżáńĆŽěľÄęÜšń
˛łö¨č˘ľÜˇ
236:ftHgĚźłľłń
09/02/15 13:00:58 .net
R[hš
Dim object1, object2, objectie, ieurl, loopflag, hako
loopflag = 0
Set object1 =CreateObject("Shell.Application")
set object2 = object1.Windows()
do While loopflag = 0
for each objectie in object2
hako=objectie.LocationURL
ieurl = ieurl & hako & vbCrLf
hako=""
next
wscript.sleep(10000)
on error resume next
if objectie.LocationURL=""
end if
if err.number=424 then
exit do
end if
msgbox ieurl
loop
If hako = "" Then
MsgBox "C^[lbgGNXv[[ŞJ˘ÄȢŠAœܾ˝B"
If ieurl <> "" Then
MsgBox ieurl
End If
End If
237:227
09/02/15 15:22:14 .net
ĚđľÜľ˝
238:ftHgĚźłľłń
09/02/26 23:01:07 .net
VBscriptĹiTunesđANeBuÉľ˝ ĆCtrl+Alt+5ACtrl+FĆ
üÍłštXN[Éľ˝˘ĚšŞAANeBuÉ
ČÁ˝ ĆĚüÍđóŻtŻČ˘ć¤ČĚšB
ČşŤżńĆŽŠČ˘ĚŠ¨ŞŠčÉČ銽˘çÁľá˘ÜšńŠH
ȺXNvgšB
dim objShell
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run "iTunes.exe"
WScript.Sleep 10000
objShell.AppActivate "iTunes"
WScript.Sleep 1000
objShell.SendKeys "^(%5)"
WScript.Sleep 1000
objShell.SendKeys "^f"
239:łŚÄńÉ
09/04/30 22:38:51 .net
EXCEL VBA Ý˝˘ÉXebvCĹŤé\tgÁÄȢH
240:ftHgĚźłľłń
09/05/04 01:07:57 .net
Rg[pl¨lbg[NÚąĚuCXlbg[NÚąvđENbNľÄuCv
ąęđVBSĹŔsōܡŠH
241:ftHgĚźłľłń
09/05/04 01:54:59 .net
ipconfig@/renew
242:ftHgĚźłľłń
09/05/05 19:33:28 .net
>>230
ŕąĚć¤Č
243:ťŰŞ čÜľ˝B VBScriptĹL[đéĚĆA ¨L[{[hĹL[đéĚÍA ʨƾľíęéŞ éĚž夊?
244:ftHgĚźłľłń
09/05/12 22:25:37 .net
ĚÇŇŔsÁÄĹŤéńŠČH
˛Ý˝ştH_íĚXNvgĆŠđuĹŔsˇéĆA
ANZXŰłęéśáńH
ăŁĚÁÄAÇŇŔsĹANZXoéĆv¤ńžŻÇEEE
ŞŠéc˘Č˘H
245:ftHgĚźłľłń
09/05/13 00:50:00 .net
Vista Ě UAC ĚbČç
set Shell = CreateObject("Shell.Application")
Shell.ShellExecute WScript.FullName, "MyScript.vbs", null, "RunAs"
Ěć¤É ShellExecute É RunAS p^đtŻęÎÇŇ ŔĹŔsĹŤé羢
ăĚáÍęĘ ŔĚXNvgŠçOĚĘĚXNvgđÇŇ ŔĹÄŃoˇážŞ
WTL ĚZbgAbvXNvgÉAtO§äĹŠŞŠgĚXNvgđÄxÇŇ ŔĹÄŃoľ˝čA
UACĚťčĆŠĚâčűŞüÁÄéŠçھ͝żçđŠÄę
246:ftHgĚźłľłń
09/05/13 19:52:57 .net
¨§
Ú˝TN˝IiEÍEj
ĹŕAÜ˝G[Ĺ˝ČEEE
ńÂç˘oÄŤÄAęÂÚŞşÚŤŤ
ŞŞŞŞŞŞŞŞŞŞŞŞ
XNvgF@@C\Users\*****\Desktop\\TEST.vbs
sF@@@@PS
śF@@@P
G[F@@ŤÝĹŤÜšńB
R[hF 800A0046
\[XF@@Microsoft VBScript ŔsG[
ŞŞŞŞŞŞŞŞŞŞŞŞ
ńÂÚŞŤŤ
ŞŞŞŞŞŞŞŞŞŞŞŞ
XNvg t@C"C\Windows\system32\My Script.vbs"
ފŠčÜšńB
ŞŞŞŞŞŞŞŞŞŞŞŞ
ŔsÂŤÍWindowsVista HomePremium
eXgĹiTunesĚtH_đwčľÄâÁÄÝ˝Ş˝ĚŠG[
XŤ\[XĹľ
\[XÉâčŞ Á˝çwEľÄę
247:ftHgĚźłľłń
09/05/13 19:53:38 .net
Čş\[XŤŤ
ŞŞŞŞŞŞŞŞŞŞŞŞ
set Shell = CreateObject("Shell.Application")
Shell.ShellExecute WScript.FullName, "MyScript.vbs", null, "RunAs"
Dim objFileSys
Dim strDeletePath
Set objFileSys = CreateObject("Scripting.FileSystemObject")
strDeletePath = "C:\Program Files\iTunes"
objFileSys.DeleteFolder strDeletePath
set objFileSys = Nothing
ŞŞŞŞŞŞŞŞŞŞŞŞŞ
ˇś¸ç..........B
248:ftHgĚźłľłń
09/05/13 21:44:14 .net
Ś[AMyScript.vbsÍPČéáČĚĹRŔsÍōȢ
ŚÄSČçKžŻÇąńČ´ś
Dim bElevated
bElevated = False
If WScript.Arguments.length >= 1 Then
If WScript.Arguments.Item(0) = "/elevated" Then
bElevated = true
End If
End If
set Shell = CreateObject("Shell.Application")
If Not bElevated And Shell.IsRestricted("System", "EnableLUA") Then
Shell.ShellExecute WScript.FullName, """" + WScript.ScriptFullName + """" + " /elevated", null, "RunAs"
WScript.Quit(0)
End If
Dim objFileSys
Dim strDeletePath
Set objFileSys = CreateObject("Scripting.FileSystemObject")
strDeletePath = "C:\Program Files\iTunes"
objFileSys.DeleteFolder strDeletePath
set objFileSys = Nothing
249:ftHgĚźłľłń
09/05/13 21:53:41 .net
age
250:ftHgĚźłľłń
09/05/13 22:07:38 .net
¨AęÂG[ÁŚ˝RiEÍE jÉ
Üž
ŞŞŞŞŞŞŞŞŞŞŞŞ
XNvgF@@C\Users\*****\Desktop\\TEST.vbs
sF@@@@P8
śF@@@P
G[F@@ŤÝĹŤÜšńB
R[hF 800A0046
\[XF@@Microsoft VBScript ŔsG[
ŞŞŞŞŞŞŞŞŞŞŞŞ
ĚG[ŞcÁÄܤČEEEGG
ń[AąĚ\[XÉgÁÄ齸ŘĚßÄĆŠÁÄÇąĹ×ĹŤéH
tqkor{Ä Á˝çťÁżŕ`˘ÄÄÝ˝˘ńžŻÇEE
˛wE´Ó´ÓiLGÖG`lj
251:ftHgĚźłľłń
09/05/13 22:34:44 .net
800A0046 ÁÄĚÍANZX ŔĚG[ČĚĹAůÉXNvgĚâčĹÍ
Ȣć¤ČCŞˇé
ĹAACXg[ÉcÁ˝S~ĹŕíˇéĚŠĆvÁ˝ńžŻÇ
ÜłŠACg[š¸ÉtH_đ˘ŤČčíľć¤ĆľÄéíŻĹÍȢćË
C:\Program Files\iTunes
ÉT[rXČÇĚvOŞ ÁÄÜžgíęĢéČç ŔĚâčĆÍ
ÖWČtH_ĚíÍłžĆv¤ŻÇ
252:ftHgĚźłľłń
09/05/13 22:41:42 .net
[EEâÁĎť¤ČéĚŠ[
URLŘݸ(www.whitire.com)
RĆŠĹâ~ľÄŠçÁÄĚÍĘÚČńiEÖE`jH
253:ftHgĚźłľłń
09/05/13 23:06:26 .net
_Ƣ¤ŠłâčĚt@CíÍAWXgâěĆt@CĚS~Ş
céÂ\ŤŞ˘
WXgâěĆt@CĚS~Ş éĆŻśAvđńxĆCXg[ĹŤČČÁ˝č
ĹŤOSŞsŔčÉČÁ˝čˇéĚĘâéŕĚĹÍȢ
ťŕťŕ˝ĚłŽČű@ĹACXg[ľČ˘Ě?
254:ftHgĚźłľłń
09/05/13 23:40:01 .net
âÁĎť¤Š[GG
nr]ľÉľÄÜĹÍľ˝Č˘ČEEE
fXNgbvÉ_CAOí\ŚłšĆ˘ÄAIđľ˝KvȢt@CE\tgĚíđ
ÁŹÁŹŻôÁĆĎÜšçęéć¤Éľ˝˘ČĆŠAźÉŕpĹŤť¤žľË[EE
URLŘݸ(www.whitire.com)
ęAmbĚĆÉČéć¤ČŕĚđ¤ÁÄÝé
WXgĚşŢĐíĹŤéŠČ[ÁÄimÍ`*j
255:ftHgĚźłľłń
09/05/17 09:32:28 .net
2ÂĚtH_đärľÄ
ˇŞt@CđwčtH_ÉRs[ˇéąĆÍvbsĹÂ\H
256:ftHgĚźłľłń
09/05/17 10:20:08 .net
>>246
vbsŠĚÉnbV
ärĚ@\ŞČ˘Šçł
ŻśźOATCYA^CX^vç˘ĚťčޢČçRÂ\
257:ftHgĚźłľłń
09/05/17 10:43:25 .net
>>247
łˇŞÉXNvgĹnbV
ärˇéĆ
x˘žë¤ŠçťęĹ\ŞĹˇ
čŞĆ¤AĄŠçěÁÄÝܡ
258:ftHgĚźłľłń
09/05/17 10:50:01 .net
ęxÍSÇÜńĆnbV
ŕoȢŠçASärޢńśáËH
ärˇéÉľÄŕfcĆŠgÁ˝Ů¤Ş˘ŻÇB
259:ftHgĚźłľłń
09/05/17 13:19:10 .net
VBSŠçIEđNŽľÄAVBSĹIEŕĚ{^şľ˝ăA
uZL
eBĹŰěłęĢȢڹÖ_CNgłęć¤ĆľÄ˘ÜˇB
ťÝĚTCgÖMĚîńÍAZL
eBŰěłęĢȢTCgÖÄMłęéÂ\ŤŞ čܡBąsľÜˇŠHv
ÁĢ¤_CAOŞ\ŚłęéĚšŞAąĚ_CAOĚu͢vĚ{^đşˇéÉÍAVBSĹÍÇĚć¤Éˇę΢˘Ěž夊H
260:ftHgĚźłľłń
09/05/18 08:45:15 .net
ÉÔŞŠŠéęĹ
vOXo[\ŚIȹƪoę΢˘ĚžŻÇ
ÝńČÍǤľÄéH
IEđg¤ű@ÍíŠčɢľ
261:ftHgĚźłľłń
09/05/18 12:35:47 .net
IEŞČçR\[ÉoÍĹŕľĆŻćB
262:ftHgĚźłľłń
09/05/18 13:04:55 .net
ľĆŻćśĽË[žëI
ľ˝ç˘˘ńśáȢšŠIžë
263:ftHgĚźłľłń
09/05/18 18:23:55 .net
śĽ
264:ftHgĚźłľłń
09/06/24 00:20:51 .net
@@@B
@@@||
S(oßÖßo)ÉŢ vjvjIvjvjI
@@@||
S(oßÖßo)ÉŢ źÂŠçüžIvjvjI
@@@||
S(oßÖßo)ÉŢ vjvjIvjvjI
@@@||
@@@O
265:ftHgĚźłľłń
09/09/21 08:47:26 .net
>>250
L[MĹAltĆŠTabĆŠSpaceĆŠMľÄšČ˘ŠËB
>>251
HTAĹvOXo[ěéĚÍH
IEiHTMLjĹâéćč\ÁŰdăŞéŻÇB
266:ftHgĚźłľłń
09/10/03 01:28:39 .net
ČńŠŽSÉßaÁĢéČB
ĹßAĆąĹĚPěĆđvbsĹěčąńĹÝÄAg˘č˘˘ĆCâ˝ńžŞB
ÄŠA˘Âŕ ĹěÁĢ鞪AâŽ@\ĆŠ éyĘĚJÂŤc[ Á˝çłŚÄB
267:ftHgĚźłľłń
09/10/03 09:02:10 .net
âŽ@\ČńÄg¤ŮÇĚŕĚśáȢŠçČB
VisualStudioŞęÎľÄéńśá ȢŠH
î{IÉÍVBAâVisualBasicÉߢŕĚžľB
TeraPadĹFtŻ[hÉVBScriptÖWĚmĆ
WSHÖWĚmÇÁľ˝ĚŢÂŕ˘ÄéB
268:ftHgĚźłľłń
09/10/03 12:38:11 .net
ŚŔseXgoéĚĹwpEditorgÁÄé
269:ftHgĚźłľłń
09/10/05 20:34:03 .net
IEĚěÉ¢ĿâšB
şLĚć¤ÉapŤTCgĹwó`xƢ¤Pęđőˇéć¤Éľ˝˘ĚšŞA
ČşŠeLXg{bNXÉśŞüÍłęÜšńB
Ǥľ˝ç˘˘ŠłŚÄžł˘B
Option Explicit
On Error Resume Next
Dim strUrl
Dim objIE
strUrl = "URLŘݸ(dictionary.goo.ne.jp)"
Set objIE = WScript.CreateObject("InternetExplorer.Application")
If Err.Number = 0 Then
objIE.Navigate strUrl
objIE.Visible = True
Else
WScript.Echo "G[F" & Err.Description
End If
Set objIE = Nothing
objIE.document.all("MT").value = "ó`"
270:ftHgĚźłľłń
09/10/05 20:43:28 .net
>>260
wčű@Şá¤
ÎŰĚHTML\[XđmFľë
271:ftHgĚźłľłń
09/10/05 21:13:09 .net
>>260
Dim objIE
Set objIE = WScript.CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate "URLŘݸ(dictionary.goo.ne.jp)"
WScript.Sleep(5000)
objIE.document.dict.MT.value = "ó`"
objIE.document.dict.submit()
272:260
09/10/06 17:10:24 .net
>>261-262
ń čŞĆ¤˛´˘ÜˇB
URLŘݸ(www2s.biglobe.ne.jp)
ĚTCgđŠÄtH[ĚwčđâÁÄݽ̚ŞvbaĆÍÜ˝á¤ĚšŠËH
vbsĚIEěĚâčűŞÚÁĢéTCgČÇ čÜľ˝çłŚÄžł˘B
273:ftHgĚźłľłń
09/10/06 17:49:49 .net
>>263
î{ÍęĹHTMLĚmŻ
ĹĚ>>260ĹŽěľČ˘RÍ document.all("MT") ĹÍPĆĚşÝÄŰ°ŮđwčľČ˘˝ß
ćÁÄ>>262ĹÍĚŤ°ŃźđüęÄ document.dict.MT ĹwčľÄ˘é
X`žćČEEE
274:ftHgĚźłľłń
09/12/23 20:50:33 .net
[hAGNZAćAHTMLt@CČÇđwčľ˝ÔÉóüľA
ey[WÉy[WÔđÂŻéąĆÁÄvbsĹěŹÂ\šŠH
Â\žÁ˝çÇĚć¤É쏡éŠqgłŚÄžł˘B
275:ftHgĚźłľłń
10/01/02 21:28:53 .net
[hĆGNZČ睤˘¤t[\tgŞˇĹÉ éŻÇČ
y[WԪ¢˝ŠÇ¤ŠÍmçńŞ
276:ftHgĚźłľłń
10/01/05 23:43:38 .net
>>265
VBSĹť¤˘¤ĄfIĹŠÂ×ÉévČńÄŻ˝ŠČÁÄŠńś
[UC^tF[XÖĚüÍ𩮻ˇéĚČçuwscĆŠ éńžŻÇ
277:ftHgĚźłľłń
10/02/15 21:42:27 .net
śńA.vbs
Function J(arrArg)
J = Join(arrArg, "")
End Function
Wscript.Echo J(Array(1, 2, 3, 4, 5, "A", "B", "C"))
&LÉćę˝ĐĆp
278:ftHgĚźłľłń
10/02/16 23:08:22 .net
ǹš˘˝ç˘˘ĚŠíŠçȢĚĹAXá˘đłmŨˇŤľ˝˘ĚšŞA
ťÝWindows 2003 ServerCĚÂŤĹActive DirectoryĚ^pšB
[UAJEgĚVKěŹÍSÄčŽĹsÁĢéĚšŞA˝ĆŠWSHâADSIđgÁÄ
CSVt@CŠçęĹo^đsŚéć¤Éľ˝˘ĆvÁĢܡB
ľŠľAvOͨëŠR[hâXNvgČÇĄÜĹSłíÁ˝ąĆŞł˘ĚĹ
lbgăĹöJłęĢéTvČÇđŠÄŕA˝đÓĄľÄ˘éĚŠŞŮĆńÇíŠčÜšńB
סéÉ˝ÁÄAQlÉČéĐâTCgAĘXČÇŞ ęÎAhoCXđ¨č˘ľÜˇB
279:ftHgĚźłľłń
10/02/16 23:16:13 .net
>>269
ąĚ ˝čŞî{
URLŘݸ(technet.microsoft.com)
XNvgęŠçJeSĘTvŞTšé
280:269
10/02/17 00:37:23 .net
>>270
čŞĆ¤B
ťąŕŠ˝ńžŻÇAťŕťŕęÂęÂĚ\bhŞÇ¤˘¤IuWFNg𜏾ÄéĚŠâA
˝ĚťęđľČŻęÎČçȢ̊AÁĢ¤ĆąëŠçíŠçČĢÁÄéB
Set objCommand = CreateObject("ADODB.Command")
ČńŠÍhRÉÚąˇéƍɨܜȢĚć¤ÉŠęÄéŻÇAąęÉŔ總đˇé˝ßĚŕĚŠíŠçȢxB
áŚÎăLĚ\śžĆAobjCommandÁÄĎÉǤ˘¤IuWFNgŞÄÜęÄéĚŠâA
ťĚŕeđmFˇéű@ˇçíŠçČÄA˝ž˝žrűÉéęÄéB
Scripting guysČńŠŕÇńĹéŻÇAËRđŞÇ˘ÂŠČČéńžc
Ë\ł˘Šçúß˝űŞ˘˘ĚŠĆYńžܤ
281:ftHgĚźłľłń
10/02/17 00:50:43 .net
>>271
Ťçßé̡ŹB
ADOÍęxg˘űđoŚęÎg˘ÜíšéćB
VBSĹWSHâéOÉA
ExcelĚVBEÂŤĹFXľÄÝÄÍǤŠH
ADOŕADSIŕgŚéćB
fobKĹĎĚgđmFĹŤéĚĹAC[WŞcçŢ͸B
282:ftHgĚźłľłń
10/02/17 01:06:45 .net
>Set objCommand = CreateObject("ADODB.Command")
>ČńŠÍhRÉÚąˇéƍɨܜȢĚć¤ÉŠęÄéŻÇAąęÉŔ總đˇé˝ßĚŕĚŠíŠçȢxB
>áŚÎăLĚ\śžĆAobjCommandÁÄĎÉǤ˘¤IuWFNgŞÄÜęÄéĚŠâA
>ťĚŕeđmFˇéű@ˇçíŠçČÄA˝ž˝žrűÉéęÄéB
CɡńČ
ŮĆńÇĚŠĚvO}ÍťąçÖńĚTvRsyľÄ
ÓĄŕťç¸gÁÄ鞯Ěx
íŠçńĹŕąËčÜíľÄ餿ÉĆč Ś¸Ž
SťÁĢÄéďtĚűŞžŠçŔS`
283:269
10/02/17 01:23:56 .net
>>272>>273
AhoCXTNXB
3öYÝąŻÄ˝ńžŞAvOĆXNvgĚᢡçíŠçȢç˘ÉSŇČŕńĹA
QlÉČé{ŕTľÄÝ˝ŻÇAÇęŕßĢéŕĚĆÍᤊçÁŻŠŻÄ˝B
ExcelĆŠAccessĚVBAžĆAĎĚéžĆŠR}hĚvpeBŞáąáÁÄéŠç
ŚÄhľÄ˝ŻÇAťÁżĹŕFXľÄÝéB
ŕÁĆŕAWSHžĆĎÍWScript.EchoĹmFĹŤéŻÇAśŹľ˝IuWFNgĚmFű@ŞsžžÁ˝Šç
RsyľÄŤ˝TvŞ˝Ě˝ßÉ˝đľÄéĚŠíŠçČÄA
ťĚxÉrűÉéęÄ˝ŻÇAżĺÁĆćŁęť¤ČCŞľÄŤ˝B
Ü˝ŞŠçČŠÁ˝çSŇŰoľĚżâđˇéŠŕľęȢŻÇA
Ćč Ś¸žúŠçüßÄoźľÄéB
{É čŞĆ¤II
284:ftHgĚźłľłń
10/02/17 01:38:07 .net
L[[hĆ "MSDN" đ íšÄOOν˘Ä˘ĚŕžÍoÄéB
285:ftHgĚźłľłń
10/02/21 17:08:50 .net
test
<pre>
p
</pre>
286:ftHgĚźłľłń
10/02/21 17:29:45 .net
śńĚęđRgAEgˇé.vbs
Wscript.Echo "" _
& "aaa" _
& "bbb" _
& C("" & "ccc" _
) & "ddd" _
& ""
Function C(strArg)
C = ""
End Function
rem ĆŠśážßČĚł
287:ftHgĚźłľłń
10/02/28 16:55:49 .net
śńĚęđRgAEg2.vbs
Set objDic = CreateObject("Scripting.Dictionary")
i = 0
i = i + 1 : objDic.Add i, "cmd.exe /c"
i = i + 1 : objDic.Add i, "("
i = i + 1 : objDic.Add i, "dir /w"
rem i = i + 1 : objDic.Add i, "|"
rem i = i + 1 : objDic.Add i, "sort /r"
i = i + 1 : objDic.Add i, "|| (pause & exit)"
i = i + 1 : objDic.Add i, ")"
i = i + 1 : objDic.Add i, "&& (echo well done. & pause)"
strCommandLine = Join(objDic.items, " ")
CreateObject("Wscript.Shell").Run strCommandLine
288:ftHgĚźłľłń
10/04/21 01:42:59 .net
žęŠEXEC\bhĚg˘űłŚÄžł˘GG
OOÁÄઊçȢBB
289:ftHgĚźłľłń
10/04/21 06:59:22 .net
wordĚ.doct@CÉßÜę˝ćđbmpĹćčoˇvOđ˘Ä˘Üˇ
Office2003Č~ĚwordŞCXg[łęĢéPCŠçžĆ¤Üćę˝ĚšŞ
OfficeXPČOĚwordŞCXg[łęĢéPCžĆ¤ÜŽŤÜšń
Çżçŕword2000`ŽĹŰśłęĢét@CÉÎľÄěľÄ˘Üˇ
OfficeXPČOĚwordŞCXg[łęĢéPCĹŕŽć¤ÉÉÍǤˇęÎć˘ĹˇŠ
290:ftHgĚźłľłń
10/04/21 07:42:42 .net
>>279
URLŘݸ(www.microsoft.com)
scd56jp.exeŞú{ęĹhL
gžÁ˝Í¸B
291:żâČńˇŞ
10/06/09 01:05:23 .net
vistaĹt@CđIđˇé˝ßĚ_CAO {bNXđ\ŚˇéÉÍH
Hey, Scripting Guy! É Á˝
Set objDialog = CreateObject("UserAccounts.CommonDialog")
objDialog.Filter = "All Files|*.*"
objDialog.InitialDir = "C:\"
intResult = objDialog.ShowOpen
If intResult = 0 Then
Wscript.Quit
Else
Wscript.Echo objDialog.FileName
End If
ĹÍ1sÚĹG[
ActivXRg[ÍObjectđěŹĹŤČ˘ť¤Ĺˇ
292:ftHgĚźłľłń
10/06/09 02:17:23 .net
>>282
XPĹt@CđIđˇé˝ßĚ_CAO {bNXđ\ŚˇéÉÍH
ĚÔᢞëB
URLŘݸ(www.microsoft.com)
293:ftHgĚźłľłń
10/06/28 17:05:36 .net
>>282
URLŘݸ(technet.microsoft.com)
UserAccounts.CommonDialog IuWFNgÍAZL
eBăĚâčŠç Windows Vista Ĺp~łęÜľ˝B
y[WĹVX\ŚXbhĚőŢXębčĚj
[X¨ÜŠšXgĽIvVđ\ŚÉÂÔľ2ch
1899úOÉXV/318 KB
S:undef