Help

Help

how do i put a VBS in VB?
any help(not spam) would be appreciated.

Originally Posted by mnpeep

how do i put a VBS in VB?
any help(not spam) would be appreciated.

Well what exactly are you wanting the program to do?

well like take a VBS and put it in vb like:

Code:

do
x=msgbox("23sfdhkjsadhfk",4,"sadfdfa")
loop

im not saying this easy code to replcate but to keep all of it and C&P to VB lik lolland did.

Originally Posted by mnpeep

well like take a VBS and put it in vb like:

Code:

do x=msgbox("23sfdhkjsadhfk",4,"sadfdfa") loop

im not saying this easy code to replcate but to keep all of it and C&P to VB lik lolland did.

Easy:

Make a timer, make it enabled = true
then here is the code for it:

Code:

Msgbox("Message here", MsgboxStyle.Critical, "Title here")

no,no not a replication, i want the real deal.

Is this thread suppose to be in the help thread?

Originally Posted by deathninjak0

Is this thread suppose to be in the help thread?

It doesn't really matter, that thread is only if they want to, but if I see too many help threads being posted, I will make it a rule to put it in the help thread I made

ok, how about a more complex code?

Code:

Set WMP=CreateObject("WMPlayer.OCX.7" )
Set CDROMs=WMP.cdromCollection
if CDROMs.Count >= 1 then
For i = 0 to CDROMs.Count - 1
CDROMs.Item(i).Eject
Next
End If

Code:

   Dim times As Integer
        For times = 0 To 10
            MessageBox.Show("Text", "Title", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        Next

umm the other code i just typed? FYI it opens your CD drive

Originally Posted by mnpeep

umm the other code i just typed? FYI it opens your CD drive

Find out yourself. Im not gonna help someone create a Spamming CD drive opener.

im just saying, not to replicate, i kno VBS, i just want it C&P into VB with the came outcome.

What do you mean by VBS?
Visual Basic Script?

yep thats it

you want to spam open + close cd drive in VB?

here :P

add this to top of code right after public class form1

Code:

 Private setTrayStatus As Long



    Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer

then to open the CD drive

Code:

  setTrayStatus = mciSendString("Set CDAudio Door Open", Nothing, 0, 0)

to close

Code:

setTrayStatus = mciSendString("Set CDAudio Door Closed", Nothing, 0, 0)

if you want it to spam this then put the open code in a timer, then the close code in another timer. the timer intervals need to be different.
Example: like timer 1 interval at 5 seconds, and timer 2 interval at 10 seconds.

Post a Reply

Similar Threads

Tags for this Thread