Oppure

Loading
07/01/10 14:19
Devil_Joker93
Ciao ha tutti sto creando un generatore di msgbox, ma il problema e che dovrebbe scriverli in un file vbs, Tutto Ok ma il problema è che gli scrive in modo errato, ecco il codice del programma:

Private Sub XPButton9_Click()
Open ("C:\MsgBox.vbs";) For Append As #1
If XPOption3.Value = True Then
Print #1, "MsgBox" + XPText2.Text, 64, XPText1.Text
End If
If XPOption1.Value = True Then
Print #1, "MsgBox" + XPText2.Text, 16, XPText1.Text
End If
If XPOption2.Value = True Then
Print #1, "MsgBox" + XPText2.Text, 48, XPText1.Text
End If
Close #1
End Sub

Ecco cosa mi scrive (per esempio) nel file vbs:

MsgBox Aggiornamento Installato Correttamente 64 Informazione

Invece per funzionare dovrebbe scriverlo così:

Msgbox "Aggiornamento Installato Correttamente",64,Informazione

Sapete aiutarmi ?

Grazie

By Devil_Joker93


aaa
07/01/10 14:49
LittleHacker
Postato originariamente da Devil_Joker93:

Ciao ha tutti sto creando un generatore di msgbox, ma il problema e che dovrebbe scriverli in un file vbs, Tutto Ok ma il problema è che gli scrive in modo errato, ecco il codice del programma:

Private Sub XPButton9_Click()
Open ("C:\MsgBox.vbs";) For Append As #1
If XPOption3.Value = True Then
Print #1, "MsgBox" + XPText2.Text, 64, XPText1.Text
End If
If XPOption1.Value = True Then
Print #1, "MsgBox" + XPText2.Text, 16, XPText1.Text
End If
If XPOption2.Value = True Then
Print #1, "MsgBox" + XPText2.Text, 48, XPText1.Text
End If
Close #1
End Sub

Ecco cosa mi scrive (per esempio) nel file vbs:

MsgBox Aggiornamento Installato Correttamente 64 Informazione

Invece per funzionare dovrebbe scriverlo così:

Msgbox "Aggiornamento Installato Correttamente",64,Informazione

Sapete aiutarmi ?

Grazie

By Devil_Joker93




Beh devi fare cs:
ex:
"MsgBox """ & XPtext2.Text & """, 64, """ & XPText1.Text & """"

:k:
aaa