Newsgroup: it.comp.lang.visual-basic
Titolo: URGENTISSIMO!!!

Devo porgere delle domande a questo NG, però per evitare letture
indesiderate, ditemi chi di voi programmatore è decisoo ad aiutarmi e a
rispondere ad alcune di queste.
É urgente.
C conto...
Ciao e grazie
Artemis 23am
P.S. - 
worl...@tin.it

Quanto mistero...... e le domande le dobbiamo inventare??????

 wrote in message
379F60C3...@ufo-nevada.test-site.usa.net...


Eventualmente per le risposte potremmo usare un Remailer e crittografare il
tutto con un bel algoritmo asimmetrico con una chiave diciamo a ..... 1024
sono sufficienti??????
Scherzi a parte posta la tua domanda e il NG ti risponderà!
CIAO ;-)

Francesco ha scritto:

Dunque, dovreste mandarmi degli esempi su come:
Rimpicciolire l'icona nella traybar ed eventualmente animarla
Spiegarmi come creare un file ini con VB6, ovvero come crearlo per salvarci le
impostazioni di qualche programma.
Come assemblare in un Text multiline più variabili, in modo che esca ad
esempio:
a = "Artemis"
b = "23am"
c = "Visual Basic"
__________
|Artemis       |
|23am          |
|Visual Basic|
-----------------
Inviarmi se vi è possibile i sorgenti di TelNet in VB6 (chiedo indubbiamente
tropo).
inviarmi il wsock.ocx.
Spiegarmi come posso bloccare le combinazioni tipo Alt+Ctrl+Canc, Alt+F4 etc...
Spiegarmi come si richiamano (o si sfogliano) le funzioni API.
E infine (che C sto uscendo pazzo) come si fa a far apparire bottoni premuti al
passaggio del mouse e poi farli ritornare normali... mi spiego meglio:
Ad esempio voglio che una label al passaggio del mouse diventi tridimensionale
e se sposto il mouse fuori dalla label ritorna normale... dunque invece di
fare:
Private Label1_MouseMove()
  Label1.BorderStyle = 1
End
Private Form1_MouseMove()
  Label1.BorderStyle = 0
End
Però se il mouse esce fuori dal form rapidamente la label mi rimane premuta.
Come posso evitare questo inconveniente?
Grazie e se potete mandatemi anche un semplice algoritmo per crittare del
testo.
Ciao
Artemis 23am

Dimenticavo... dovreste spiegarmi anche come posso cercare una @ in un
testo... ovvero... in una TextBox uno deve scrivere un indirizzo E-Mail,
soltanto che se nel textbox non c'è la @ quando si preme TAB ti appare un
messaggio... ma come faccio ad impostare un controllo per questa maledetta
chiocciola???
Ciao
Artemis 23am

Quando ho scritto letture indesiderate intendevo dire che non volevo
allungare il discorso e rendere la lettura del messaggio una vera e propria
paranoia.
Artemis 23am

E poi una fetta di culo???? (scusate ma non riuscivo a trattanermi)
Una domanda sola....
Sei al corrente dell'esistenza del sito comune oppure dell'help (parola
evidenziata + F1) oppure della possibilità di consultare le news??? A quanto
pare no......
'==============================
In questo esempio la funzione InStr viene utilizzata per restituire la
posizione della prima occorrenza di una stringa all'interno di un'altra.
Dim SearchString, SearchChar, MyPos
SearchString ="XXpXXpXXPXXP" ' Stringa in cui eseguire la ricerca.
SearchChar = "P" ' Cerca "P".
' Confronto testuale a partire dalla posizione 4. Restituisce 6.
MyPos = Instr(4, SearchString, SearchChar, 1)
' Confronto binario a partire dalla posizione 1. Restituisce 9.
MyPos = Instr(1, SearchString, SearchChar, 0)
' Il confronto predefinito è binario (l'ultimo
' argomento viene omesso).
MyPos = Instr(SearchString, SearchChar) ' Restituisce 9.
MyPos = Instr(1, SearchString, "W") ' Restituisce 0.
'==============================
a = "Artemis"
b = "23am"
c = "Visual Basic"
__________
|Artemis       |
|23am          |
|Visual Basic|
-----------------
TEXT.TEXT= a & chr(13) & b chr(13) & C
'==============================
Spiegarmi come posso bloccare le combinazioni tipo Alt+Ctrl+Canc, Alt+F4
etc...
Vedi sito e news
'==============================
Spiegarmi come si richiamano (o si sfogliano) le funzioni API.
Vedi sito e news e libri
'==============================

-----------------------------------------------------------------------------------
Per criptare ...........................
 ' Crypt Sample by Matt Hart - 
vbh...@matthart.com
' 
http://matthart.com
'
' I've updated this sample with better encryption.
' Before, my simple XOR encryption could actually
' show the password somewhere in the encrypted
' file (using the file encryption).  This method
' is more secure.  It builds a "key" from the password
' to encrypt and decrypt, rather than using the actual
' password itself for the algorithm.
'
' Note that if you use Crypt$ to decrypt a file's data
' with a single pass, you must uncomment the line
' in the loop, since the initial encryption would have
' been broken into 4096 byte chunks.
Function EncryptINI$(Strg$, Password$)
   Dim b$, S$, i As Long, j As Long
   Dim A1 As Long, A2 As Long, A3 As Long, P$
   j = 1
   For i = 1 To Len(Password$)
     P$ = P$ & Asc(Mid$(Password$, i, 1))
   Next
 
   For i = 1 To Len(Strg$)
     A1 = Asc(Mid$(P$, j, 1))
     j = j + 1: If j > Len(P$) Then j = 1
     A2 = Asc(Mid$(Strg$, i, 1))
     A3 = A1 Xor A2
     b$ = Hex$(A3)
     If Len(b$) < 2 Then b$ = "0" + b$
     S$ = S$ + b$
   Next
   EncryptINI$ = S$
End Function
e decriptare ..................
Function DecryptINI$(Strg$, Password$)
   Dim b$, S$, i As Long, j As Long
   Dim A1 As Long, A2 As Long, A3 As Long, P$
   j = 1
   For i = 1 To Len(Password$)
     P$ = P$ & Asc(Mid$(Password$, i, 1))
   Next
 
   For i = 1 To Len(Strg$) Step 2
     A1 = Asc(Mid$(P$, j, 1))
     j = j + 1: If j > Len(P$) Then j = 1
     b$ = Mid$(Strg$, i, 2)
     A3 = Val("&H" + b$)
     A2 = A1 Xor A3
     S$ = S$ + Chr$(A2)
   Next
   DecryptINI$ = S$
End Function
bye, Luys
--------------------------
Luigi Lando
mailto : 
lu...@telemar.it
--------------------------
Make things as simple as
possible - but no simpler.
--------------------------



Ed invece lo hai fatto: con ben due messaggi inutili.
POSTA LE DOMANDE!!!!!
Nessuno mai si è lamentato se uno ha inviato un messaggio di 500K di domande, ma tutti si lamenteranno se uno invia un
messaggio di 1 byte inutile.
Se uno non è interessato, non lo legge e stop; se uno è interessato lo legge e, se è in grado, ti risponde. Ma se non
c'è il messaggio a che risponde? Facile dire: "Ho un problema, contattatemi." Sei tu ad avere un problema, quindi è
giusto che sia tu a cercare aiuto, non chiedere che qualcuno si svegli un giorno e si precipiti da te per aiutarti....
non ti pare?
Ciao,
Moreno
#sirri#@
morenosoft.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.morenosoft.com/MSVBSite/
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------