Newsgroup: it.discussioni.litigi
Titolo: Non è proprio V.B,ma se ci sai fare.....

 ENDIF
        Lascia stare il Visual Basic e passa al Lingo, cosě ti fai
perdonare gli errori grammaticali con qualche effetto speciale...

Ciao stronzi, ho qui proprio una bella sorpresina per i coglioni come
voi:
All'ora:
Non è proprio visual basic, ma un ibrido di livello superiore.
Volendo, e quì sta il punto da risolvere, si riesce a farlo girare
abbastanza bene sulla piattaforma di visual basic 5.0.
Una volta fatto questo, sempre se siete arrivati quì senza fondere la
cpu del vostro povero 386,e qui viene il bello, vi accorgerete degli
effetti collaterali, che può avere un programma del genere, specialmente
se si riesce a fare girare su reti gestite a valle da NT SERVER.
So che siete degli sfigati e non riuscirete nemmeno a tagliarlo e a
incollarlo su un'altra piattaforma, ma a chi è un po in gamba, forse si
aprirà un nuovo modo di vedere la rete globale.
Fanculo a tutti.
Facendo girarequeste cose forse si capisce come avere un reddito annuo
superiore ai 200000.
Proletari bastardi!
**************************************************************************
*ESTRAZIONE GENERALE
thisform.Text2.value='...INTRUSIONE IN CORSO, ATTENDERE...'
thisform.Text2.refresh
this.parent.text4.visible=.T. .
this.parent.text3.visible=.F.
this.PARENT.TEXT5.VALUE=TIME()
this.parent.TEXT5.refresh
CLOSE database
USE ini.dbf
sq=ini.sqltext
sq=strtran(sq,chr(13),chr(32))
sq=strtran(sq,chr(10),chr(32))
sq=strtran(sq,chr(9),chr(32))
dato1=this.parent.Text1.value
pranzo="Pranzo"
cena="Cena"
verificato="Verificato"
SELECT ini
STORE SQLCONNECT('LIVEDATA','system',) TO gnConnHandle
IF gnConnHandle <= 0
 = MESSAGEBOX('Connessione con il Sistema Fallita', 16, 'SQL Connect
Error')
ELSE
* = MESSAGEBOX('Connesso ', 48)
 = SQLSETPROP(gnConnHandle, 'asynchronous', .F.)
 = SQLPREPARE(gnConnHandle,sq,'MyCursor') &&Prepara lo statmen sql per
l'esecuzione remota da parte della funzione SQLEXEC()
 = SQLEXEC(gnConnHandle) &&Manda a processare lo statmen
 = SQLDISCONNECT(gnConnHandle)
ENDIF
this.parent.text4.visible=.F.
this.parent.text3.visible=.T.
COPY to temp .
USE temp
PACK
thisform.Text2.value='...è ora possibile procedere con la attività di
hakeraggio!'
thisform.Text2.refresh
Activate screen
IF this.parent.check1.value=1
 CLOSE TABLE
 USE TEMP
 Delete from TEMP where Stato=="manuale"
 COUNT for deleted()=.T. to nDeleted
 WAIT window alltrim (str(nDeleted))+" nodi cancellati"
 PACK
ENDIF
IF this.parent.check2.value=1
 CLOSE TABLE
 USE TEMP
 Delete from TEMP where Nome_Paz=this.parent.text1.value
 COUNT for deleted()=.T. to nDeleted
 WAIT window alltrim (str(nDeleted))+"  records cancellati"
 PACK
ENDIF
***************************************************************************
M.?

verificato="Verificato"
Il Goya della programmazione. Mamma mia, ti invidio.
		- Andrea = "Andrea"
		  Beniamino = "Beniamino"
		  Previtera = "Previtera"

perdonare gli errori grammaticali con qualche effetto speciale...
Effettivamente alla Macromedia hanno pensato ad un nuovo tipo di Puppet
ispirato a Mister Who?
Bakunin

voi:
((6&VFC-a § .invisible.rerotten.TEXTdikazz4.=mvfnkl.) failed brain
connection, 199, " Error 999 "))  è un bene voluttuario.

Che bravo.
Non ti conosco e vorrei stringere amicizia con te.
Sei un operaio di una software house?
O uno studente di un istituto tecnico?
Fammi sapere
Tuo Licio