pds Topic Starter
Thanked: 2 Posts: 58

konichiwa kamisan ^_^
|
 |
« on: November 25, 2009, 04:04:51 AM » |
|
this script is method to ping to a pc
@echo on cls ping 192.168.0.1 pause ftp pause open 192.168.0.1 play 192.168.0.1 pause
<>note<warning don't try to hack with this scrip cie can see everything you try if you got ftp mode your commands and stuff will be saved in the coloctor...> so you can change my script copyright by http//www.192.168.0.7.M0DC3T.atrib?.cmd.qua/.ms-dosport-pds.jp
|
|
|
|
|
|
|
pds Topic Starter
Thanked: 2 Posts: 58

konichiwa kamisan ^_^
|
 |
« Reply #2 on: November 25, 2009, 04:09:36 AM » |
|
@echo off cls title -=Ξmarix b version pdsΞ=- color 0a :loop echo %random%%random%random echo %random echo %random%%random% goto loop
copyright by pds
|
|
|
|
|
|
|
pds Topic Starter
Thanked: 2 Posts: 58

konichiwa kamisan ^_^
|
 |
« Reply #4 on: November 25, 2009, 04:39:23 AM » |
|
i'm adult and i've some usefull scripts
|
|
|
|
|
|
|
|
|
|
|
pds Topic Starter
Thanked: 2 Posts: 58

konichiwa kamisan ^_^
|
 |
« Reply #8 on: November 25, 2009, 05:08:10 AM » |
|
ok i these a good one cls @echo off title pds password if EXIST Control Panel. {21EC2020-3AEA-1069-A2DD-08002B30309D} goto unlock if NOT EXIST Private goo mdlocker :CONFIRM echo Are you sure you want to lock thr folder(Y/N) set/p "cho=>" if %cho%==Y goto LOCK if %cho%==y goto LOCK if %cho%==N goto END if %cho%==n goto END echo Invalid choice. goto CONFIRM :LOCK ren Private "Control Panel. {21EC2020-3AEA-1069-A2DD-08002B30309D}" ATTRIB +H +S "Control Panel. {21EC2020-3AEA-1069-A2DD-08002B30309D}" echo Folder locked goto END :UNLOCK echo to unlock foder set/p "pass=>" if NOT %pass%== 12345 goto FAIL attrib -h -s "Control Panel. {21EC2020-3AEA-1069-A2DD-08002B30309D}" ren "Conrtol Panel {21EC2020-3AEA-1069-A2DD-08002B30309D}" Private echo FOLDER uNLOCKED SUCCESSFULLY GOTO END :FAIL ECHO INVALID PASSWORD GOTO END :MDLOCKER MD Private ECHO PRIVATE CREATED SUCCESSFULLY GOTO END :END
i hope you change your mind  for change your password change 123345 into what you want
|
|
|
|
|
Carbon Dudeoxide Global Moderator
Thanked: 146 Posts: 16,087
Certifications: List Computer: Specs Experience: Expert OS: Mac OS

Carbon - The building block of life on Earth.
|
 |
« Reply #9 on: November 25, 2009, 05:10:00 AM » |
|
|
|
|
|
pds Topic Starter
Thanked: 2 Posts: 58

konichiwa kamisan ^_^
|
 |
« Reply #10 on: November 25, 2009, 05:14:39 AM » |
|
but i've use this script 9 years ago everybody know this and this has copyright by D3BBY@hotmail.com
|
|
|
|
|
|
|
|
|
|
|
pds Topic Starter
Thanked: 2 Posts: 58

konichiwa kamisan ^_^
|
 |
« Reply #14 on: November 25, 2009, 05:57:11 AM » |
|
i swear it on myself i write this script i have a aliB
|
|
|
|
|
pds Topic Starter
Thanked: 2 Posts: 58

konichiwa kamisan ^_^
|
 |
« Reply #15 on: November 25, 2009, 06:01:18 AM » |
|
liar
|
|
|
|
|
|
|
patio Moderator
Thanked: 1069 Posts: 11,354
Experience: Beginner OS: Windows 7

Maud' Dib
|
 |
« Reply #17 on: November 25, 2009, 07:42:19 AM » |
|
10-9-8-7....
|
" All generalizations are false, including this one. "
|
|
|
pds Topic Starter
Thanked: 2 Posts: 58

konichiwa kamisan ^_^
|
 |
« Reply #18 on: November 25, 2009, 09:47:39 AM » |
|
Carbon Dudeoxide!
|
|
|
|
|
|
|
|
|
|
|
|
|
pds Topic Starter
Thanked: 2 Posts: 58

konichiwa kamisan ^_^
|
 |
« Reply #23 on: November 26, 2009, 04:22:14 AM » |
|
did somebody have a game?
|
|
|
|
|
|
|
|
|
pds Topic Starter
Thanked: 2 Posts: 58

konichiwa kamisan ^_^
|
 |
« Reply #26 on: November 27, 2009, 02:45:50 AM » |
|
i see its more mike
@echo off cls
|
|
|
|
|
|
|
pds Topic Starter
Thanked: 2 Posts: 58

konichiwa kamisan ^_^
|
 |
« Reply #28 on: November 27, 2009, 03:07:44 AM » |
|
get out my topic now!! you're only send spam into
|
|
|
|
|
mroilfield
Thanked: 42 Posts: 984
Experience: Experienced OS: Windows XP

|
 |
« Reply #29 on: November 27, 2009, 03:10:00 AM » |
|
get out my topic now!! you're only send spam into
When did you purchase Computer Hope in order for the thread to be yours? I asked a simple question.
|
You can't fix Stupid!!!
|
|
|
|
|
pds Topic Starter
Thanked: 2 Posts: 58

konichiwa kamisan ^_^
|
 |
« Reply #31 on: December 09, 2009, 08:50:28 AM » |
|
i have made a automatic cd opener in dos with vbs
MENU SOURCE
@echo off cls title PDS CD/DVD RAW OPENER (DOS) VER 2.9 :INPUT echo copyright by team p.d.s. set/p "input=> if %input%==help goto HELP if %input%==open goto OPEN if %input%==take out goto OPEN2 if %input%==exit goto EXIT if %input%==cmd goto C if %close%==close goto CLOSE :HELP echo open = to open your cdrom slot echo exit = to close this window echo C CMD/DOS echo e-mail:pdsboss@gmail.com goto INPUT :EXIT exit :OPEN start open.vbs :C cls command.com
OPEN source (.vbs)
Set oWMP = CreateObject("WMPlayer.OCX.7") Set colCDROMs = oWMP.cdromCollection colCDROMs. item(i).Eject
(i hope you like this stuff) copyright by pds *me*
|
|
|
|
|
BC_Programmer
Thanked: 697 Posts: 15,881
Computer: Specs Experience: Beginner OS: Windows 7

Pinkie Pie is best pony
|
 |
« Reply #32 on: December 09, 2009, 10:09:56 AM » |
|
VB4,5 and 6 Code module equivalent that requires no external ActiveX dependencies.
Option Explicit Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Public Sub CloseCD() Dim Lngreturn As Long Dim Strreturn As Long Lngreturn = mciSendString("set CDAudio door closed", Strreturn, 127, 0) End Sub Public Sub OpenCD() Dim Lngreturn As Long Dim Strreturn As Long Lngreturn = mciSendString("set CDAudio door open", Strreturn, 127, 0) End Sub
There are other MCI commands that could be executed, including opening a sequencer and playing CD audio, seeking, etc. However I haven't used MCI for a very long time.
|
|
|
|
|
|
ghostdog74
Thanked: 26 Posts: 1,511
|
 |
« Reply #34 on: December 09, 2009, 09:15:09 PM » |
|
Autoit is so handy! Even allows one-liners from the prompt.
C:\>Autoit3 /AutoIt3ExecuteLine "CDTRay ('X:', 'open')" C:\>Autoit3 /AutoIt3ExecuteLine "CDTRay ('X:', 'closed')" X: is my optical drive's letter.
well, that's called abstraction  . vbscript: Const CDROM = 4 Set objFS=CreateObject("Scripting.FileSystemObject") Set shell = CreateObject("Shell.Application") For Each drives in objFS.Drives If drives.DriveType = CDROM Then cd=drives.DriveLetter & ":\" 'Eject shell.Namespace(17).ParseName(cd).InvokeVerb("E&ject") End If Next
c:\test> cscript //nologo eject.vbs
there, also one line 
|
|
|
|
pds Topic Starter
Thanked: 2 Posts: 58

konichiwa kamisan ^_^
|
 |
« Reply #35 on: December 12, 2009, 02:33:37 AM » |
|
i only know C++ C# C DOS I'm study VBS
|
|
|
|
|
ghostdog74
Thanked: 26 Posts: 1,511
|
 |
« Reply #36 on: December 12, 2009, 02:42:56 AM » |
|
Set oWMP = CreateObject("WMPlayer.OCX.7") Set colCDROMs = oWMP.cdromCollection colCDROMs. item(i).Eject
(i hope you like this stuff) copyright by pds *me*
what is "i" in "item(i)" ? and why is there a space between colCDROMs. and "item(i)" ??
|
|
|
|
pds Topic Starter
Thanked: 2 Posts: 58

konichiwa kamisan ^_^
|
 |
« Reply #37 on: December 13, 2009, 04:34:26 AM » |
|
those are values, object, commands and variables
|
|
|
|
|
ghostdog74
Thanked: 26 Posts: 1,511
|
 |
« Reply #38 on: December 13, 2009, 05:24:34 AM » |
|
those are values, object, commands and variables
i know what they are called. What i mean is , where is "i" variable defined in the vbs??
|
|
|
|
pds Topic Starter
Thanked: 2 Posts: 58

konichiwa kamisan ^_^
|
 |
« Reply #39 on: December 13, 2009, 06:40:03 AM » |
|
you know variable "i" in vbs i that (i) (350)
|
|
|
|
|
|
|
ghostdog74
Thanked: 26 Posts: 1,511
|
 |
« Reply #41 on: December 13, 2009, 06:07:45 PM » |
|
i can only guess that those code are not written by him but cut and paste and then doing it blindly
|
|
|
|
|
|
|
|
pds Topic Starter
Thanked: 2 Posts: 58

konichiwa kamisan ^_^
|
 |
« Reply #44 on: December 14, 2009, 08:11:33 AM » |
|
this script isn't written by me but by a friend
i only made a dos menu for it.
why your so hard on me if you wanna play the game so i can play it hard too
|
|
|
|
|