EXE
galera alguem pode gerar um exe para mim dessa programacao pois nao tenho vb aqui e estou precisando disso para apresentar um seminario obrigado e desculpem mas nao tinha mais a quem recorrer a tempo.
Private Sub Command1_Click()
TxtMain.Text = Crypt(TxtMain.Text)
End Sub
Private Sub Command2_Click()
TxtMain.Text = Crypt(TxtMain.Text)
End Sub
Private Sub Command3_Click()
TxtMain.Text = ""
End Sub
Public Function Crypt(Text As String) As String
Dim strTempChar As String
For i = 1 To Len(Text)
If Asc(Mid$(Text, i, 1)) < 128 Then
strTempChar = Asc(Mid$(Text, i, 1)) + 128
ElseIf Asc(Mid$(Text, i, 1)) > 128 Then
strTempChar = Asc(Mid$(Text, i, 1)) - 128
End If
Mid$(Text, i, 1) = Chr(strTempChar)
Next i
Crypt = Text
End Function
Private Sub Command1_Click()
TxtMain.Text = Crypt(TxtMain.Text)
End Sub
Private Sub Command2_Click()
TxtMain.Text = Crypt(TxtMain.Text)
End Sub
Private Sub Command3_Click()
TxtMain.Text = ""
End Sub
Public Function Crypt(Text As String) As String
Dim strTempChar As String
For i = 1 To Len(Text)
If Asc(Mid$(Text, i, 1)) < 128 Then
strTempChar = Asc(Mid$(Text, i, 1)) + 128
ElseIf Asc(Mid$(Text, i, 1)) > 128 Then
strTempChar = Asc(Mid$(Text, i, 1)) - 128
End If
Mid$(Text, i, 1) = Chr(strTempChar)
Next i
Crypt = Text
End Function
[txt-size=3]
Vc não tem o Vb ??? [S59]
..basta ir em "file" e "Make seuprograma.exe" que ele vai gerar o executável... [/txt-size]
Vc não tem o Vb ??? [S59]
..basta ir em "file" e "Make seuprograma.exe" que ele vai gerar o executável... [/txt-size]
eu estou no meu serviço e aqui não pode ter nada pirata, tenho que apresentar seminaria na escola pego o à 'nibus logo ao sair daqui por isso não vai dar tempo preciso que alguém bondoso como você faça este favor para mim poder apresentar meu seminario
mandei no seu email
Ah tah... ...blz !! he he he !!!
... o JEAN JEDSON ja te enviou... ..tudo certo então... ...não esqueça de encerrar o tópico !
Um Abraço !!
Fui... [S71]
galera desculpem de novo mas o meu servidor barrou darái para me enviar no e-mail
'carlinhos.sonego@gmail.com '
'carlinhos.sonego@gmail.com '
Ok, enviado
Gmail não aceita arquivo com extenção ".exe", tem que sem em zip ou jpg...
mandei como .txt, vc deve ter recebido...
galera não chegou nada não, que febre que eu dou né? mas como faremos então eu mando algum daqui pra lá com extensão .doc funciona tente assim depois eu mudo aqui para exe manda para gmail com copia para acsfilho vamos ver
foi como .doc para o gmail
Tópico encerrado , respostas não são mais permitidas