Jeg er ved at lave et program til et spil Ultima online men kan ikke få inputbox til at virke plz lidt hjælp her er koden jeg vil have den til når man trykker cancel så gør den ikke noget og hvis man trykker yes så sender den
Private Sub Command7_Click()
On Error GoTo pstop
Dim p
p = InputBox(prompt:="Will alert your guildmates you are panicing and will tell them where you are.", Title:="Write a alert to Guild")
Select Case pp
Case vbYes
Dim sCmdString As String
sCmdString = ".Guildpanic " & p
SendToUO (sCmdString)
GoTo pstop
Case vbNo
GoTo pstop
End Select
pstop:
End Sub
'modul
Function SendToUO(sCmdString As String)
On Error GoTo fail:
AppActivate "Ultima Online", 5000
SendKeys sCmdString, 1000
SendKeys sCmdString2, 1000
SendKeys " {ENTER}", 1000
GoTo fail2
fail:
MsgBox "Ultima online is not running! plz open it to use this program"
fail2:
End Function
Tak hvis i kan hjælpe mig
//ETA
Http://www.eta-wall.tk/