Help

[mnpeep]

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

[Pixie]

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?

[mnpeep]

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

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.

[Pixie]

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

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:

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

[mnpeep]

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

[deathninjak0]

Is this thread suppose to be in the help thread?

[Pixie]

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

[mnpeep]

ok, how about a more complex 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

[Iamazn1]

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

[mnpeep]

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

[Iamazn1]

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.

[mnpeep]

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

[Lolland]

What do you mean by VBS?
Visual Basic Script?

[mnpeep]

yep thats it

[XGelite]

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

here :P

add this to top of code right after public class form1

 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

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

to close

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.