mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: [OT]Cercasi RFC disperatamente

Ciao a tutti...
Mi dispiace postare questo OT ma non riesco a trovare quello che mi serve e
immagino che qualcuno di voi possa aiutarmi.
Ho bisogno delle RFC del SOCKS4 e 5 e dell'HTTP PROXY per poter far
funzionare una mia applicazione utilizzando questi proxy. Ho trovato qualche
cosa, ma non riesco a trovare un documento che mi dica i comandi che devo
mandare al proxy.
Se qualcuno mi può fornire i link ne sarei contento.
ByezZ
JW

 Ho bisogno delle RFC del SOCKS4 e 5 e dell'HTTP PROXY
Search the RFC Index:
http://www.rfc-editor.org/rfcsearch.html
Bye, G.

Grazie :)
Molto utile.
Bye
JW
"Paperino" <non...@lo.dico> ha scritto nel messaggio
news:aomq9o$5m2k$1...@stargate1.inet.it...


 
http://www.rfc-editor.org/rfcsearch.html
L'hai vista la RFC di "IP over avian Carrier with QoS". :-)
ftp://ftp.rfc-editor.org/in-notes/rfc2549.txt
Ciao
*Roby*

"Roberto Piazzolla" ha scritto nel messaggio

Era PTP, Pidgeon Transport Protocol, o qualcosa del genere,
vero ? Ci rotflai sopra a suo tempo... :-)
Un Paperino che dovrebbe essere in Preferiti->Umorismo.

Newsgroup: it.comp.lang.visual-basic
Titolo: Immagini costruite da stampare....

Devo fare una applicazioncina che , letta una picture dal disco, dopo
l'aggiunta di uno o due
punti con PSET   , frutto di un calcolo, trasferisca il contenuto della
bitmap composta
Sfondo + PSET alla stampante (o anteprima di stampa)....
Qualche suggerimento Veloce ???
Grazie .

Conosci il metodo PaintPicture ?
Ciao stefano


Si certo che lo conosco, ma hai provato a prendere l'immagine creata e
trasferirla su form2 per stamparla ?

Scusa hai ragione ma hai scritto immagine ricostruita e pensavo che avessi
riletto tutti i pixe e ridisegnati cambiandone  alcuni perche' in tal caso
si dovrebbe poter fare, ora controllo e ti faccio sapere.
Ciao Stefano

trasferirla su form2 per stamparla ?
Ciao stefano
Newsgroup: it.comp.lang.visual-basic
Titolo: dubbio sui timer

Ciao a tutti,
spero possiate levarmi questo dubbio.
Ipotizziamo che io abbia un timer che a certi intervalli faccia una
query sul db.
Se sto facendo un'altra operazione (ad esempio sto aggiungendo un
appuntamento ad un calendario che necessita, quindi, l'accesso al db) e
scatta l'evento timer (tick o elapsed) che tenta di accedere al db, che
succede?
Si verifica un errore?
Chiedo questo perchè ci può essere solo un datareader aperto per
connessione quindi se sto facendo qualcosa che accede al db e
contemporaneamente scatta il timer, come si comporta?
Se si verifica un errore, come evitare? Disabilito il timer prima di
compiere una qualsiasi operazione con il db e lo riabilito subito dopo?
Ultima cosa:
Che differenza c'è fra il timer dei component (che ha come evento
"elapsed") e quello nelle form (che ha come evento il tick) ?
Grazie

 succede?
Forse dipende dal DB usato, ma non dovresti avere problemi, almeno che non
usi lo stesso oggetto recordset.
In pratica se fai una cosa del genere
rs.source "SELECT * FROM TABELLA"
rs.open
Mentre Rs è già aperto.
In questo caso ti basterebbe aggiungere un po' di controlli e usare due
oggetti recordset distinti.
-- 
DBMS Firebird
VB6 + Ado


Io, di solito, preparo la query e la do in pasto con
command.executeReader(query, connessione)
che mi riempie il recordset con i record ottenuti.
Anche se utilizzo un recordset diverso mi da comunque errore dicendomi
che non possono esserci più di un recordset aperti per connessione
Utilizzo vb 2005 e sqlserver express
Grazie per la risposta


 ha scritto nel messaggio 
news:1151484014.2...@j72g2000cwa.googlegroups.com...


 Utilizzo vb 2005 e sqlserver express
Mi spiace ma non conosco vb2005.
Comunque se avvengono delle scritture concorrenti dovresti gestire
l'accesso concorrente alla tabella.


 Elef
Vero,
il dubbio mi viene perchè, pur avendo UN solo recordset in tutto
l'applicativo, e provando a chiuderlo SEMPRE in questo modo
try
  myRecordset.Close()
catch ex as exception
end try
ed utilizzandolo, a volte mi da errore di datareader già aperto
(allucinante visto che, avendone uno e chiudendolo prima non può
essere così)
Allora il dubbio mi è sorto sui timer che possano accedere in
automatico al db

Newsgroup: it.comp.lang.visual-basic
Titolo: [Cazzeggio] Hello world

http://www.roesler-ac.de/wolfram/hello.htm
Scusate, ma non ho saputo resistere...alcuni linguaggi mi hanno fatto
venire i lucciconi...
Bye by SixaM 8-]

 venire i lucciconi...
L' Ook è veramente insuperabile: 
http://www.dangermouse.net/esoteric/ook.html
Funzionerà anche per i cani?

 Bye by SixaM 8-]
speriamo che fra ennemila anni lo trovino...
...e ci saltino fuori :)

 venire i lucciconi...
L' Ook è veramente insuperabile: 
http://www.dangermouse.net/esoteric/ook.html
Funzionerà anche per i cani?
"If you are familiar with BrainF***"
improbabile.
i cani sono più faniliar with StomachF*** :)
grazie, ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Engine italiano e SAPI

Ho scaricato le SAPI SDK 4.0 (nella versione completa degli SE).
Nella installazione è stata creata una directory \SpeechEngines
(all'interno del percorso c:\programmi\file comuni\Microsoft Shared\) che a
sua volta si articola in
\lexicon
\Mscsr
\Tts
All'interno del TTS ci sono i files relativi agli Engines (tutti con
linguaggio inglese)
Però ho anche installato nel mio computer anche la IBM ViaVoice SDK 1.5
Il fatto strano (?) è  il seguente:
Scrivo il programma per testare le SE
.....
for i=1 to TextToSpeech1.CountEngines
ModeName=TextToSpeech1.ModeName(i)
Combo1.Additem ModeName
next i
ecc.
......
Eseguo il Run e vedo ci sono SOLO gli Engines in Inglese.
Mi viene un sospetto e compilo il programma per creare l'eseguibile.
Lancio il programma *.exe e appaiono gli Engines in italiano.
Come è possibile che il progetto VB non veda gli engines in italiano e
lo stesso progetto compilato gli veda ?
frac...@tin.it

 wrote in message
846a38$45u$1...@nslave2.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Chiamata funzioni

Vorrei automatizzare la chiamata di alcune funzioni a partire da una stringa
..... mi spiego :
Mettiamo di avere una funzione del tipo
private function prova (a as integer) as integer
    prova = a*2
end function
e di avere altre due variabili del tipo
a$ = "prova"
i = 3
Posso effettuare una chiamata del tipo   j =  a$(i)   al posto di   j  =
prova( i ) ??
Io ci ho provato e mi sembra di no, c'è qualcuno che possa risolvermi il
problema ?

vecchia questione.... variabili contenenti un nome di variabile....
 no. non puoi.
ps: il linguaggio C risolve con i "puntatori a funzione"... ma con
grandissimo casino  ;-)


 wrote in message 8clnam$t1k$1...@nslave2.tin.it...


prova( i ) ??
Ma che sistema orrido sarebbe?
a$ è una stringa, prova è una funzione (ti tipo integer per di più, e già
qui ci sarebbe un'incopatibilità di tipi).
E' abbastanza illogico che dopo aver detto a$ = "prova" in a$ ci sia
qualcosa di diverso da "prova".
Al massimo a$(2)  potrebbe essere (non mi dispiacerebbe questa feature nel
nuovo VB) "r" cioè il secondo car. di "prova".
Ma prova a pensarci un attimo: tu come faresti a sapere che a$ contiene un
nome di funzione  e che invece non volevi proprio assegnargli il valore
"prova"?
mi sembra un metodo contorto da evitare, anche perchè non si può fare.
"Non esistono soluzioni semplici, solo soluzioni più semplici" diceva A.E.
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: Conversione da Null a 0

Vorrei, perfavore, sapere se esiste la possibilità di emulare in VB5 la
funzione Access Nz() che converte una variabile con valore Null al
numero 0.
Grazie, anticipatamente, per l'aiuto.



Prova cosi'
Function Nz(Valore)
'
If IsNull(Valore) Then
  Select Case VarType(Valore)
  Case vbByte, vbInteger, vbLong, vbSingle, vbDouble, vbCurrency
    Nz = 0
  Case vbString
    Nz = ""
  Case Else
    Nz = vbNullString
  End Select
Else
  Nz = Valore
End If
'
End Function


Qualcosa del genere?
Function NZ(a As Variant) As Long
    If IsNull(a) Then NZ = 0 Else NZ = CLng(a)
End Function
 spero aiuti...
ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: SQL e UPDATE

Ciao a tutti
Vorrei utilizzare il comando sql UPDATE con un controllo adodc:
Adodc4.RecordSource = "SELECT * FROM preventivi "
Set DataGrid2.DataSource = Adodc4
Adodc4.RecordSource = "UPDATE preventivi SET prezzo = '" & Text1.Text & "'"
Questo codice non funziona
Volevo sapere come passo il comando sql UPDATE ad un controllo adodc ?

[Med = 
circa_...@tiscali.it
 in
Kf84c.63438$
Kc3.1...@twister2.libero.it
] ha scritto:

A parte adodc, possibile che prezzo sia un campo testo?


Non ho mai usato l'adodc (e se puoi farne a meno....) comunque dovrebbe
avere il metodo Execute
ciaociao

Newsgroup: it.comp.lang.visual-basic
Titolo: Spostamento TAB e Scrollbar

Ciao a tutti,
stavo cercando la soluzione + carina per il seguente problema:
ho un form con circa 70 campi,per poterli rappresentare tutti in una
schermata ho dovuto
inserire il "solito" frame + vscroolbar che funziona
egregiamente.L'unico tassello che non
so bene come sistemare è che se l'utente si sposta col TAB da un campo
all'altro vorrei che la vscrollbar seguisse il focus dei campi.
Spero di essermi spiegato e a presto.
Bye

...

Newsgroup: it.comp.lang.visual-basic
Titolo: HELP dichiarazione in moduli .bas

In esempi di moduli (.bas) trovo sovente la dichiarazione GLOBAL
potreste darmi alcune informazioni al riguardo?
a cosa serve una dichiarazione del genere?
Non ho trovato documentazione al riguardo
Option Explicit
Global M
Global xdb As Database
Global wrk1 As Workspace
Global gsDatabase as String
Public path_dati As String
Public file_dati As String
Public fMainForm As frmMain
Grazie anticipatamente
PFM
--
To reply please remove from e-mail 'xyz'- Per rispondere togliere 'xyz' dall'indirizzo e-mail.


quelle con global sono variabili che si possono utilizzare su tutto il
progetto le public invece sono variabili che possono essere accessibili
attraverso il form su cui sono dichiarete. Esempio se sono del form1 le
recuperi con form1.path_dati.
Sono le basi del VB le trovi in qualunque manuale nel capitolo dichiarazioni
di variabili locali e globali
Newsgroup: it.comp.lang.visual-basic
Titolo: APRIRE MDB Protetto da Password

Come è possibile aprire un database Access protetto da password con il
metodo myWorkspace.OpenDatabase ??
Grazie per l'eventuale risposta

 Grazie per l'eventuale risposta
Dim db as database
Set db = OpenDatabase("Nomedatabase.mdb",
false,false,";PWD=MIAPASSWORD")
Cerca OpenaDataBase sull'Help.
 
Ciao
:-) Hd (-:
p_di...@freemail.it
  (okkio, non è politico ^_^)
hd...@azienda.net
Sito Comune:
www.murialdo.it
\it_lang_vb

Newsgroup: it.comp.lang.visual-basic
Titolo: 2 funzioni sulle date

A qualcuno possono interessare queste due funzioni, relative alle date?
Le ho messe in una DLL scritta in VB (VBDate.dll). Che ne dite, la metto sul
sito comune?
La prima funzione serve a convertire una data da un formato FILETIME,
SYSTEMTIME o DOSTIME in un numero Long identico a quello che si otterrebbe
utilizzando la funzione CLng() su un valore Date.
Può essere molto utile quando si vuole dare un valore numerico a date di
salvataggio di file ottenute con le funzioni Api FindFirstFile e
FindNextFile.
Ecco la sua sintassi:
Function DateLong(ByVal vDate as Any, ByVal WhatFormat as Integer, ByVal
vOrder as Integer) as Long
dove
 vDate [in] è il valore FILETIME, SYSTEMTIME o DOSTIME che si vuole
convertire;
 WhatFormat [in] indica di che formato si tratta, FILETIME (1), SYSTEMTIME
(2) o DOSTIME (3);
 vOrder [in] indica in che ordine procedere, crescente (1) o decrescente
(0).
La funzione ritorna il valore Long corrispondente a vDate.
La seconda è una sub e serve ad ordinare un array composto di valori in
formato FILETIME.
Ecco la sua sintassi:
Sub SortFileTime(ByVal ArrSource() as FILETIME, ByRef ArrDest() as FILETIME)
dove
 ArrSource() [in] è l'array da mettere in ordine;
 ArrDest() [out] è l'array messo in ordine.
Che ne dite, possono servire? Le mando al Sito Comune?
Non le ho ancora finite e controllate del tutto.
MarioH

 ha scritto nel messaggio
news:94g2ob$dd5f0$1...@ID-70152.news.dfncis.de...


ci sono dei problemini.
la funzione in sè lavora perfettamente, il problema è che non riesco proprio
a richiamarla da un altro progetto VB. mi spiego. il primoparametro (vDate)
è senza formato, proprio perchè può essere sia un valore long (per una data
in formato DOS), sia un valore FILETIME sia un valore SYSTEMTIME.
una volta compilata la DLL, quando provo a richiamare la funzione con un
valore FILETIME (ma succederbbe lo stesso anche con SYSTEMTIME) da un
progetto VB, mi esce un errore di compilazione, dicendomi che solo i tipi
definiti dall'utente in moduli di oggetto PUBBLICI possono essere passati a
funzioni esterne. ma cosa è un modulo di oggetto PUBBLICO??????? un modulo
di oggetto è un modulo di un form, di una classe,... ?? e come si fa a
definirlo PUBBLICO? non ci sono proprietà al riguardo... come devo fare?
grazie
MarioH

 ha scritto nel messaggio
news:94h4s1$dmms3$1...@ID-70152.news.dfncis.de...



ok... ::))))))
Newsgroup: it.comp.lang.visual-basic
Titolo: Urgente: Ultimo identity

Qualcuno si ricorda come reperire l'ultimo identity creato con una
insert su Sql Server?
Grazie!
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Grazie!
Dim AutoID
Dim rs as Object
Set rs = Nothing
Set rs = CreateObject("ADODB.RECORDSET")
With rs
  .Source = "SELECT @@IDENTITY"
End With
With cn ' Tua Connessione
  .Execute SQL ' Tua Stringa SQL di Insert
  With rs
    .ActiveConnection = cn
    .Open , , , , adCmdText
    AutoID = rs(0).Value
    .Close
  End With
End With
Prego
Ciao,
Mattia

 Grazie!
Dipende da quale identity ti occorre, se l'ultimo della tabella o
l'ultimo identity inserito in una delle tabelle del tuo db.
@@identity, comunque ti restituisce l'ultimo identity inserito nel
db. Significa che se hai lanciato una sp che richiama altre sp, o
trigger o aggiorna comunque più di una colonna identity, la funzione
ti restituisce l'ultimo per la singola sessione ma non per il singolo
ambito.
@@Scope_identity è molto simle a @@identity, ma è legato all'ambito.
Per capirci tra ambiti e sessioni.
Una sessione è una login di un particolare utente, un ambito è una
data operazione su una tabella. Se hai quindi tabA e tabB, e su tabA
c'è un trigger che ti aggiorna tabB inserendo una riga, se inserisci su
tabA e chiedi la @@identity ti ritornerà la identity di tabB se chiedi la
@@scope_identity ti ritorna il valore di TabA.
ident_current, invece, ti restituisce l'ultimo identity di una particolare
tabella, ma non è legata ne ad ambiti ne a sessioni, il che vuol dire
che se contemporaneamente pippo aggiorna o inserisce un record, e
tu chiede la ident_current di una tabella potresti recuperare il suo id
invece che il tuo.
Spero di essere stato chiaro.
-- 
Saluti
Andrea Moro
Sito Comune : 
http://www.it-lang-vb.net

Newsgroup: it.comp.lang.visual-basic
Titolo: Problemino per esperti2

Grazie a Federico e Marco, ma vi spiego meglio il problema per avere più
informazioni: devo stampare delle immagini con il crystal
da un database access 2.0. Il campo con l'immagine è di tipo Oggetto OLE,ma
se assegno una immagine al campo di Access da VB3 tramite oggetto OLE non da
problemi in fase di assegnazione ma poi se vado in access e apro la tabella
nel campo al posto di avere "immagine bitmap" ho "Dati long binary"!!!
Grazie!!

 da un database access 2.0. Il campo con l'immagine č di tipo Oggetto OLE,ma

Newsgroup: it.comp.lang.visual-basic
Titolo: [VB.Net] List box

Salve,
ho una listbox chiamata lbLista che mi visualizza una lista di nomi da una
tabella presa in un dataset.
Ho assegnato le seguenti proprieta' alla listbox
lbLista.DataSource = ds.Tables("clienti")
lbLista.DisplayMember = "cognome"
lbLista.ValueMember = "idcliente"
Vorrei che quando l'utente clicca su un cognome venga assegnato ad una
variabile id il corretto idcliente presente come ValueMember nella listbox e
quindi...:
Public Shared id As String
Private Sub lbLista_SelectedIndexChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles lbLista.SelectedIndexChanged
        id = lbLista.SelectedValue
End Sub
Questo codice mi genera il seguente errore
Cast from type DataRowView to type String is not valid
Grazie
Saluti
Riccardo

Cast from type DataRowView to type String is not valid
Vado a naso perche' non ho .net sottomano in questo momento,
pero' hai provato a scrivere:
	id = lbLista.SelectedValue.ToString()
?
-- 
buon natale, hal

L'oggetto nella listbox è di tipo DataRowView quindi per recuperare il
valore stringa dovrai estrarre il valore della colonna interessata tipo
id=CType(dbLista.Item("cognome"),String)
HTH
-- 
Corrado Cavalli [Microsoft MVP]
UGIdotNET - 
http://www.ugidotnet.org

 wrote in message
news:sMqO9.50178$TC5.1...@twister1.libero.it...


 wrote in message
news:rbbk0voqsbfkjn6b9...@4ax.com...


effettivamente non è corretto, prova con:
dim dr as DataRowView=lbLista.SelectedValue
id=CType(dr.Item("Cognome"),String)


 wrote in message
news:ZpBO9.51281$Ou4.1...@twister2.libero.it...


Prova a dare un occhiata all'help di MSDN
ms-help://MS.VSCC/MS.MSDNVS/cpref/html/frlrfsystemdatadatarowviewclassitemto
pic.htm


Newsgroup: it.comp.lang.visual-basic
Titolo: HTTP Request aiuto!

Ciao a tutti
E' possiile da visual basic effettuare una richiesta http (get o post) e
ricevere la risposta?
Che libreria devo utilizzare?
Conosco l'esistenza di XMLHTTP, ma volevo sapere s esiste un'altra libreria
+ specifica.
Io devo semplicemente postare ad un sever una serie di parametri come
querystring e intercettare la risposta.
Grazie
Fabio

 Che libreria devo utilizzare?
Vedi il controllo Inet, senza imbarcarti con Winsock
Newsgroup: it.comp.lang.visual-basic
Titolo: Indice non compreso nell'intervallo: variant bidimensionale

Ciao a tutti,
ho un array variant bidimensionale. Non riesco assolutamente a 
stabilirne la dimensioni ossia il numero di elementi che sono dentro 
l'array.
Se uso Ubound(nome_variant) mi restituisce sempre 1 il che non è 
assolutamente vero visto che gli elementi sono molti di più. Infatti se 
faccio un:
k=0
Do
	Msgbox nome_variant(0,k)
	Msgbox nome_variant(1,k)
	k=k+1
Loop
gli Msgbox "vanno" finché non mi viene restituito l'errore "Indice non 
compreso nell'intervallo" (giustamente).
Il problema è proprio ricavare l'indice max. k a priori!
Consigli?
Grazie.

Leo ha scritto:

Scusate, ho risolto... mi ero semplicemente dimenticato di specificare 
la dimensione dell'array in Ubound...  (i.e. Ubound(nome_array,2)

 assolutamente vero visto che gli elementi sono molti di
Il default credo sia la prima dimensione.
Se vuoi il limite della seconda devi specificarlo.
Comunque sulla guida in linea e' spiegato.
--
ciao, hal
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

Newsgroup: it.comp.lang.visual-basic
Titolo: Aggiungere un servizio

Ho creato un applicativo con VB 6, però ora devo inserirlo come servizio su
un server.
Qualcuno sa dirmi come posso fare?
Grazie, Max

 Qualcuno sa dirmi come posso fare?
Leggi qualche post piů indietro, č tutto spiegato...
Ah, google?!?
Ciao,
Mattia

"Mattia" <br...@NOSPAM.it> ha scritto nel messaggio
news:bej9hl$r2m$1...@newsread.albacom.net...

Grazie dell'info, ho trovato ( sbagliavo chiave di ricerca :-P )
Newsgroup: it.comp.lang.visual-basic
Titolo: Qual'era quella funzione....

Non mi ricordo la funzione con consente di "esplodere" una stringa in una
matrice.
Es.
s_stringa = "pera,mela,banana"
v_variant = funzione(s_stringa, ",")
                 ^^^^^^^
ora v_variant è una matrice:
v_variant(0)="pera"
v_variant(1)="mela"
v_variant(2)="banana"
Qualcuno si ricorda?
Ciao e grazie,
Nico
PS: se non esiste in VB una funzione di questo tipo,allora scusatemi: ho
bisogno di andare in ferie :-D

 matrice.
Split
--
Lorenzo Benaglia
UGIdotNET - 
http://www.ugidotnet.org

 
split (VB6)
ciao
		maxx

 matrice.
tutti dicono "SPLIT" (vb6) e io per farti andare in ferie ti dico "EGREG"
(PHP) ! ^_-

"Gigio2K" <barone.fab...@M.libero.it.invalid> ha scritto nel
messaggio news:xQS59.60506$lu5.1...@twister1.libero.it...

Appunto, avevo paura di aver fatto casino con PHP :-))
Grazie a tutti per la risposta.
Nico

Newsgroup: it.comp.lang.visual-basic
Titolo: Per il lettore cd...

Ciao a tutti...ho 1 problema: voglio fare un programma-setup su un cd che
contiene vari giochi: il programma in questione viene lanciato dall'autorun,
e da esso, tramite i pulsanti corrispondenti, l'utente finale puň lanciare
un determinato gioco. Alchč la mia domanda č: io pensavo di associare ad
ogni pulsante semplicemente un comando "shell" che mi lanciasse, sul cd, il
file exe del gioco corrispondente...il guaio č quando devo dare alla riga di
comando con l'istruzione "shell" il path, la posizione del file exe
insomma...se fossi sicuro che l'utente finale metta il cd in un lettore
contraddistinto dalla lettera D:\ allora non ci sarebbero problemi, ma 9
volte su 10 non č cosě, e io non posso affidarmi al caso! Allora come faccio
a sapere qual'č la lettera ( D:\ , E:\ ...) del lettore in cui č stato messo
il mio cd (e quindi fatto partire questo programma di setup) ???
Grazie a tutti, belli & brutti  ;-)
Il Conte

 wrote in message
news:mU7A7.56002$1H1.6...@news.infostrada.it...


 Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA"
(ByVal nDrive As String) As Long
Const DRIVE_CDROM = 5
    For Drive = 65 To 90
        If GetDriveType(Chr(Drive) & ":\") = DRIVE_CDROM Then
            ' fai quello che vuoi (normalmente esci)
            ' il CD-ROM č identificato dalla lettera
            CDROMdrive= Chr(Drive) & ":\"
            Exit For
        End If
    Next Drive
Questo sistema funziona in maniera egregia. L'ho provato in varie situazioni
ed ha sempre funzionato


Non funzionerebbe sul mio PC visto che ho due CD drives.
Comunque, se il programma di partenza si trova sul CD, allora puoi
utilizzare mid$(App.Path,1,3).
Sal

Newsgroup: it.comp.lang.visual-basic
Titolo: DECOMPILATORE

chi sa dirmi dove posso scaricare un buon decompilatore (debugger) per VB?
rispondete a 
tom...@tin.it
grazie 1000
sH@Dy

 wrote in message 7f831r$nf6$1...@nslave1.tin.it...


Ho sentito parlare del NuMega SmartCheck...non so se sia un decompilatore o
piu' un debugger...pero' dicono sia potentissimo e che addirittura
restituisca le stringhe delle variabili.
Newsgroup: it.comp.lang.visual-basic
Titolo: Reboot Applicazione

Ciao a tutti
Avrei un problemino: ho fatto un PRG in VB e quando schiaccio un tasto
vorrei che il mio programma terminasse per poi riaprirsi/ricaricarsi da
solo!!!! come se facesse un REBOOT.
In punti il quesito:
1-Apro PRG
2-Faccio le mie modifiche
3-Schiaccio il tasto <<RIAVVIA PRG>>
4-Si chiude il PRG
5-Si riapre il PRG
Si puň fare?????
Grazie
Fabio

 Si può fare?????
se la situazione non e' critica puoi utilizzare
shell per aprire una nuova istanza del tuo programma prima e
subito dopo chiudere quella precedente con unload o end (non
mi uccidete. non lo uso quasi mai end :pp )
in pratica inverti la sequenza in 1-2-3-5-4
--
Fibia "Sakamoto" FBI
URL: 
http://www.geocities.com/fibiafbi
VB Simple: 
http://vbsimple.virtualave.net
E-Mail: 
fibi...@hotmail.com
ICQ UIN 63586057
Membro #25 delle Brigate Takahashi Sez. Sud

 wrote in message
93uf3k$bf9mu$1...@ID-66902.news.dfncis.de...


 Aprire 3 COM , una connessione TCP/IP e 4 Database Access
dov'e' il problema?
prima di aprire la seconda istanza, chiudi le porte COM, la
connessione TCP/IP e il db.
fatto questo apri l'altra istanza e chiudi la corrente.


Newsgroup: it.comp.lang.visual-basic
Titolo: Dipendenze mancanti

Ciao a tutti, ho un problema con la creazione guidata di pacchetti
d'installazione di visual basic 6 (SP5): dopo aver fatto delle modifiche ad
un mio programma perfettamente funzionante non riesco più a crearne il setup
d'installazione, in quanto la creazione si blocca e mi avverte di non
trovare le dipendenze di alcune librerie (dbgrid32.ocx, mscal.ocx ed una dll
di mia crezione), ho già provato a registrare manualmente (con regsvr32)
le suddette librerie ma non c'è stato niente da fare.Se qualcuno mi sa
indicare come poter risolvere questo problema gliene sarei profondamente
grato. Di nuovo tanti saluti. Orazio.

 di mia crezione),
Si blocca o te lo segnala soltanto? Cioč puoi procedere? Se sě, procedi.
Dovresti riuscire a comporre regolarmente il pacchetto.
Attenzione a mscal.ocx (cerca in MSDN e anche in questo NG, ha proprio dei
problemi in registrazione, ma in fase di setup)
Cos'č che non va, quindi? La creazione del pacchetto o il suo Setup?

Vedi anche qui:
http://makeashorterlink.com/?H1C4213F1

 ha scritto nel messaggio
news:tSIl9.28442$Eu.6...@twister1.libero.it...


 classi non registrate! Cosa posso provare che non ho già fatto? Grazie!!!
Quali classi? Un messaggio che serva per uno straccio di indizio?
La prima ipotesi che viene in mente è quella che non distribuisci tutto quel
che serve.
Sulla macchina di sviluppo il programma funziona? Se sì, elenca cosa c'è di
spuntato fra i riferimenti e fra i componenti, inoltre che cosa viene
distrinuito (file Setup.LST).

 ha scritto nel messaggio
news:weJl9.28555$Eu.6...@twister1.libero.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Inviare una chiamata tel.

Come si fa ad inviare una chiamata telefonica ( x es. un autodial) senza
dover settare la com dal modem?
Oppure come si fa ad individuare la Com dove si trova il modem?
Grazie
Roby

 wrote in message
news:91ig59$pp0$1...@lacerta.tiscalinet.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: OCX Aiutatemi

Ho fatto una activex in visuabasic e quando la provo all'interno dello
stesso funziona benissimo... ma quando provo ad inserire l'ocx compilata in
un progetto asp x internet mi da l'errore runtime 424....
Premetto in questo activex ho incluso un modulo ed un modulo di classe.
Quali possono essere i parametri non compatibili tra visul basic puro ed un
progetto su internet?????

 wrote in message
news:8ji2tf$7fb$1...@nslave1.tin.it...


Hai messo la DLL  sotto MTS vero? Altrimenti non va.
Mi permetta di dissentire! :)
Es: le classi ADO non sono in mts ma funzionano benissimo.
Ovvio che la dll deve essere registrata e la classe instanziata con
server.createobject().
Ciao

 wrote in message news:8jim54$1id$1...@nslave1.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: -.- Costruire un ActiveX Container

Avete presente il controllo PictureBox?
Esso si puo' usare anche come container, cioe' al suo interno puo' contenere
altri controlli.
Vorrei creare un mio UserControl che abbia anche questa funzione.
Si puo' fare???
C'e' da impostare qualche proprieta'???
Sapete dirmi qualcosa???
************
RISPONDETEMI SUL NEWSGROUP
ci@o

 wrote in message 81rm1h$7t9$2...@nslave1.tin.it...




Ciao !
Mi pare ci sia una proprieta' "ControlContainer" da mettere a true, non mi
ricordo.. e trovare il libro a quest'ora e' un impresa...
cerca una proprieta' con un nome simile a quello che ti ho detto.
Ciao , DaVe
gigi <gig...@rtr.fdg> wrote in message 823me5$hsg$1...@nslave1.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Corsi on line di programmazione Access, Visual Basic, Delphi, SQL

Impara a programmare in VBA, Delphi, Visual Basic, ecc.
 La Teaching OnLine organizza Corsi on line di programmazione Access,
 SQL,Visual Basic, ASP, Delphi
Per informazioni, contattare
 Teaching On Line
 
in...@teachingonline.it

 ha scritto


Newsgroup: it.comp.lang.visual-basic
Titolo: CGI / VB / using STDIN / STDOUT.

I'm trying to write CGI scripts using VB4 (32bit).  Can anyone tell me
where I can get some documentation or guidance on the use of STDIN /
STDOUT.
Thanks
SRA

 ha scritto nel messaggio
news:3cb9b3d3...@news.demon.co.uk...


Newsgroup: it.comp.lang.visual-basic
Titolo: allora devo convertire stringhe in numeri

sto facendo un programmino dove tramite un label ,con un valore di tipo
stringa, devo convertirlo per fare dei controlli sul valore
l'unica function che ho trovato per convertire e val ma non mi
funziona!!!!!!!!!
io la conversione la faccio cosi :
dim valore as integer
::
codice
::
valore = val(label1.caption)
::
codice
::
if valore >= 10 then
::
codice
::
end if
ma valore vale sempre 0
come mai ?
grazie mille anticipate

 funziona!!!!!!!!!
cint, clng, csng, cdbl, ccur non vanno bene? Ma hai cercato nell'help in
linea??
Newsgroup: it.comp.lang.visual-basic
Titolo: Centrare immagine in una picturebox

Ho una picturebox che si ridimensiona insieme al form, qualcuno sa dirmi
come faccio a tenere l'immagine sempre ridimensionata al centro della
picture?
Es.
Se la PictureBox > Immagine ALLORA poni immagine al centro
Se la PictureBox < Immagine ALLORA Ridimensiona immagine al centro
(mantenendo proporzioni)
Ci sono impazzito un mese, e oramai credo di aver perso di vista la
soluzione.
Grazie a chiunque voglia aiutarmi

 ha scritto nel messaggio
news:comv71$d6i$
1...@fata.cs.interbusiness.it

prova a vedere questo:
http://www.vbaccelerator.com/home/VB/Code/vbMedia/index.asp
Nella sezione "Image Processing" c'è parecchia roba interessante.
bye
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
"Seminate Linux, che Windows si pianta da sè...." (Antico Adagio)
Gestione Ottica - Gestionale per Ottici e Programmi Gratuiti su:
http://www.nicolaottomano.it
Sinapsi Antispam. Antispam Gratuito.
http://www.nicolaottomano.it/public/SinapsiAntispam-Setup.exe
email spamtrap: 
spam...@nicolaottomano.it

 (mantenendo proporzioni)
Disegna l'immagine con il metodo PaintPicture della PictureBox.
-- 
ciao,
hal

Newsgroup: it.comp.lang.visual-basic
Titolo: dimensione oggetti

salve a tutti
qualcuno saprebbe dirmi se esiste un componente VB in grado di
individuare la dimensione di una cartella su di un server?

Stavo iniziando a sentire la mancanca di questi posts.
Newsgroup: it.comp.lang.visual-basic
Titolo: File registro di sistema

Qualcuno conosce un modo veloce per "potare" una parte dell'albero di
keys e subkeys in una volta sola senza dover cercare  e cancellare le
keys uno ad uno.
Se non c'e un altro modo me tocca pensare a una funzione ricorsiva
chiamando el varie RegEnumKey e ricavare gli indici dei rami...
Soluzioni piu' eleganti?
Sidewinder

...


Newsgroup: it.comp.lang.visual-basic
Titolo: protocollo rsh

vorrei implementare un ocx per fare rsh su server unix, ma il protocollo rsh
per me è uno sconosciuto. qualcuno sa indicarmi dove trovare informazioni ?

vorrei implementare un ocx per accedere a server unix utilizzando il
protocollo rsh. Qualcuno sa darmi informazioni su dove reperire
informazioni.


Newsgroup: it.comp.lang.visual-basic
Titolo: License e roba varia

Ciao a tutti,
non so dove altro reperire informazioni del genere e quindi eccomi qui. 
Dunque, sto scrivendo un programma VB che vorrei commercializzare 
(ovviamente in privato). Ora, per essere completamente in regola, so che 
devo avere Windows originale e comprare la licenza di Visual Basic. Le 
mie perplessità nascono proprio qui. Se compro la licenza per 
*utilizzare* il Visual Basic (che se non erro il VB .net costa 109 
euro), posso distribuire tranquillamente le mie applicazioni, oppure 
devo pagare qualcosa alla Microsoft?
In sintesi sono un programmatore alle prime armi e devo poter rilasciare 
la licenza, pagare le tasse etc., chi di voi mi sa dire come procedere e 
nel più breve tempo possibile?
Grazie anticipatamente
Artemis

 devo pagare qualcosa alla Microsoft?
Utilizzare Visual Basic vuol dire creare programmi, no?
Comunque, sicuramente la versione Professional ti consente di 
distribuire quello che vuoi, ma _credo_ si possa fare anche con la 
versione standard.
(Se poi non ci credi, sviluppa con 
vb.net
, compila da riga di comando e 
distribuisci quello...)
Newsgroup: it.comp.lang.visual-basic
Titolo: Apertura Combo

Ciao Al gruppo
ho un piccolo problema del cavolo
ho una combo semplice semplice.
La riempio di dati e quando ci arrivo sopra con il tab vorrei che si aprisse 
la tendina a discesa x farmi vedere i valori presenti.
tempo fà usai questo comando nella routine
Private Sub cmbPippo_GotFocus()
        cmbSquadre.ListIndex = 0
        SendKeys "%{Down}"
endsub
il comando sendkeys xò non funziona  !!!!
e non capisco xchè !!! se invece sono sulla combo e premo Alt+Freccia giù si 
apre
qualcuno sà spiegare l'arcano ??????
Grazie

 ha scritto nel messaggio 
news:eH_sj.246016$%k.37...@twister2.libero.it...

Prova
SendKeys "{F4}"

 SendKeys "{F4}"
Grazie !!!   Funziona a meraviglia !!!
Newsgroup: it.comp.lang.visual-basic
Titolo: EXE

Un quesito...
Se abbiamo un eseguibile, come per esempio Notepad , è possibile farlo
apparire all'interno di un form?
Se si, come fare?
Grazie per la eventuale risposta.
Ric

usa l'oggetto OLE.
bye
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
www.nicolaottomano.it

 ha scritto:


Ok ti ringrazio, ma noto che per esempio usando Word e visualizzando un
documento, esso viene visualizzato
parzialmente ossia la prima pagina e non tutte le pagine . Come fare ?
Grazie Ric.

 parzialmente ossia la prima pagina e non tutte le pagine . Come fare ?
non so. non ho mai incluso word in un mio progetto. mi spiace.


Grazie comunque. Sei stato gentile a rispondere.
Ric

 apparire all'interno di un form?
Ripeti la domanda, per favore, pensando a quello che stai chiedendo :)
Ciao
--
Math Parser : 
http://www.neodatatype.net
Sito Comune : 
http://www.it-lang-vb.net

 Ric
Guarda sul sito comune
č presente un progetto che si chiama 4in1, se non riccordo male,
che ti permette di aprire dei programmi ed eseguirli dentro
un contenitore
inserito nel tuo form
ciao
Marco

Newsgroup: it.comp.lang.visual-basic
Titolo: Chi cerca un programma?

Se desiderate un pogramma potete rivolgermi a me, con una breve descrizione
sul software da realizzare e il prezzo che volete ........
pica...@labnet.it
Programmatore Picardi Raffaele

Dovresti realizzare un software che impedisca i ripost continui.
Ciao Marco.
-- 
Remove xxx from E-mail.

...

Raffaele vuoi vendere programmi chi li fa? :-)
Ti conviene mandare i messaggi sul NG it.comp.win95.software , hai più
probabilità di trovare clienti !
Ciao
--
-
MIX (VB5SP3)
110 links ai siti VB
http://www.tempolibero.com/user/mix/
 (consigliato)
http://space.tin.it/computer/gaais
  (alternativo)
( TEMPORANEAMENTE ACCESSIBILI SOLO CON IE )
-
Newsgroup: it.comp.lang.visual-basic
Titolo: R: Ma perkè nessuno risponde al mio msg sui cgi??????

Mi dispiace contraddirti,ma le cgi si possono fare anche in vb,solo che
sono molto complesse,e non convengono!
Le cgi si facevano in VB un tempo,prima che esistesse la tecnologia
Active Server Pages.(Prima dell'ASP c'era pure un'altro modo,qualcosa
come IDC o simile....)
Mi dispiace per Spe,ma non ho piu' il materiale che usavo quando facevo
il web master,pero' ti consiglio caldamente di indirizzarti verso
ASP,oltretutto sui CD di VB6 c'e' un'Help piuttosto completo sulle
funzioni disponibili(quasi tutte quelle di VB5).Considera comunque che
se proprio vuoi usare le CGI,dovrai districarti fra le API di windows.
Ciao


 wrote in message
389AAF72...@daewoomotor.it...


Puoi darsi che qui nessuno sappia come fare ... hai provato a postare sul NG
uk ?!?!?
--
Ciaps
Stracca
---------------------------------------------
    Le risposte alle tue domande le trovi
    sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
       ... e nell'help in linea !
---------------------------------------------

 uk ?!?!?
non e' questo il punto, temo.
il punto e' che ci sono almeno un paio di persone -- spe e lele per non far
nomi -- che stanno continuando a postare le stesse domande senza leggere e/o
senza capire le risposte che gli hanno dato in parecchi:
-- cgi
-- spazio disco
-- shell / shellexec
e potremmo continuare...
ragazzi, se andaste a prendere un po' d'aria prima di ripetere le stesse
domande ? mi sembrate un po' stanchi.
fra l'altro, "perche'" si scrive con "ch" e con "é".

 wrote in message 87hcmh$f7q$1...@nslave1.tin.it...


cmq io le leggo le risposte, quelle della shell le ho lette e se nessuno
risponde al cgi non ci posso fare niente!!!!!!!!


 wrote


bhe grazie lo stesso
ciao

ciao
Tanto per dimostrare che non ti sei agitato per trovare una soluzione al tuo
importantissimo problema.
Mi son permesso di fare una piiiiccola ricerca (in vece tua) sul Sito
Comune, ebbene, ho trovato un esempio di come fare i CGI in VB. Ovviamente
non l'ho provato, questo sta a te.
Il file si chiama:  StdCGI.zip
http://www.murialdo.it/it_lang_vb
Ciao
By -MES-   Maronese Ettore
http://www.maronese.com/mes
(con OCX per stampare i recordset)
Sito Comune di programmatori Visual Basic
http://www.murialdo.it/it_lang_vb

 wrote in message
87jork$hlj$1...@pegasus.tiscalinet.it...


 wrote

Newsgroup: it.comp.lang.visual-basic
Titolo: problemi con picturebox

 Insomma creare un controllo da codice???
se n'è già parlato ampiamente...
in breve, o crei una matrice di controlli (assegnando alla prima Index =
0, creando poi le altre con Load), oppure usi Form.Controls.Add().
quest'ultima soluzione è valida solo con VB6, ma non richiede un
controllo inserito a design-time
Faber

 ha scritto nel messaggio
news:a15aq1$o8mlq$1...@ID-66268.news.dfncis.de...

ottimo, il form.controls.add() a occhio potrebbe risolvere il mio problema
( e ho anche il VB6) ma non trovo nulla sull'help,quindi mi servirebbe un
riferimento più chiaro a dove reperire documentazione ( ho provato a cercare
sul NG ma non ho trovato niente, ammetto di non aver cercato in modo molto
accurato).
intanto grazie.

 intanto grazie.
apri MSDN, scheda "Cerca", digita "controls.add" (senza virgolette),
premi Invio; da me è il quarto elemento nella lista...
cmq per cercare nei messaggi del NG usa 
http://groups.google.com
Faber

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Progetto Flowchart Editor open source

No, nessun nuovo progetto open source trovato in rete :)
Ho solo messo su la gestione del codice sorgente per il mio progetto di 
cui parlavo nei giorni scorsi (
http://www.neodatatype.net/websafe
)
Chi volesse aiutarmi può richiedere direttamente qui l'abilitazione 
dell'utente per la gestione della condivisione del progetto sul web.
Il file zip con l'ultima versione "stabile" (leggi "compilabile") lo si 
trova sempre qui: 
http://www.neodatatype.net/dump/flowchart/dir.asp
Se qualcuno vuole discuterne "live", ci si può mettere d'accordo via 
e-mail per trovarsi in chat (
irc.azzurra.it
, #it-lang-vb)
Ciao

 ha scritto nel messaggio
news:2g0u5tF...@uni-berlin.de...


 
http://www.fabforce.net/
Ecco, a questo ora ci do un occhio.
Funziona anche con .mdb e/o SQLserver?
Ciao

 Saluti
Perche' hai aspettato tutto questo tempo prima di rivelarci l'esistenza 
di questo progetto? ;-(
:-)
	maxx
-- 
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!

 Funziona anche con .mdb e/o SQLserver?
E' stato creato per funzionare in abbinamento con mysql.
Io l'ho usato per popolare un database sqlserver 2000, scaricando le
definizioni in comandi sql e cambiando alcuni comandi sullo script
risultante.
Ho trovato molto belle (anche da mostrare al cliente) le immagini degli
schemi che vengono prodotti da DbDesigner.
Newsgroup: it.comp.lang.visual-basic
Titolo: esecuzione da vb o compilato

come posso sapere da una applicazione se la sto eseguendo dal file compilato
o dal progetto di vb6 ?



In un mio progetto ho usato le API
GetModuleFileName 
GetFileTitle
la prima nel caso sia eseguita in debug ritorna "vb6.exe" o qualcosa
di simile, con la seconda estrai la parte del nome dell'applicazione:
Per comodita' ti riporto le dichiarazioni
Public Declare Function GetModuleFileName Lib "kernel32" Alias
"GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As
String, ByVal nSize As Long) As Long
Public Declare Function GetFileTitle Lib "comdlg32.dll" Alias
"GetFileTitleA" (ByVal lpszFile As String, ByVal lpszTitle As String,
ByVal cbBuf As Integer) As Integer
Ciao
Stefano "HappyMan" (Lago Maggiore - NO)
--
http://www.sgr.info
Email happyman69 (at) 
libero.it

 compilato o dal progetto di vb6 ?
Per fare dei controlli solo quando sono in fase di progettazione metto io un
parametro (nel mio file di configurazione o nel registro o ...)
che leggo e mi comporto di conseguenza.
Per fartelo dare in automatico non saprei...
Alex

 o dal progetto di vb6 ?
Function DebugMode() As Boolean
    On Error Resume Next
    Debug.Print 1 / 0
    DebugMode = (Err <> 0)
    Err.Clear
End Function

ottimo grazie


Bello!
Alex

 di simile, con la seconda estrai la parte del nome dell'applicazione:
Interessante!!
Alex

 o dal progetto di vb6 ?
App.execname
se sei nel compilato ti da il nome dell'exe ,
se sei nell'ide ti da il nome del progetto
ti basta dargli 2 nomi diversi e testarli senza utilizzare var esterne o api
^_-
Newsgroup: it.comp.lang.visual-basic
Titolo: SP4 and Visual Basic 6.0

Has anybody had problems after installation of Service Pack 4.0 for Windows
NT 4.0 with Visual Studio 6.0 and specificaally with Visual Basic 6.0 ???
Best regards,
                            Davide

NT 4.0 with Visual Studio 6.0 and specificaally with Visual Basic 6.0 ???
Nessun problema...
Invece se metti IE 5 ti problemi ne trovi parecchi... infatti la M$
sconsiglia di installare IE5 se hai Visual Studio 6 fino a quando non
arriva l'ennesimo service pack per VS6...
Che p... La M$ non e' compatibile nemmeno con se' stessa...
Sidewinder

Si ho letto.
La M$ comunque dice che sei hai IE5 ci dovrebbero essere problemi solo con
il DHTML sotto Visual Basic 6.0.
Ti risulta?
                        Davide

Ti risulta?
boh, il dhtml non e' il mio campo... 
Sidewinder

,

-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/
       Search, Read, Discuss, or Start Your Own    

translations, please!
    Babelfish (
http://babelfish.altavista.digital.com/
) says:
    "M$ however says that six you have IE5 us would have to be
    problems single with the DHTML under Visual Basic 6,0. It
    turns out to you? boh, dhtml the not e' my field..."
    Is "boh", similar to "duh"? :)
--
John A. Grant  * I speak only for myself *  (remove 'z' to reply)
Airborne Geophysics, Geological Survey of Canada, Ottawa
If you followup, please do NOT e-mail me a copy: I will read it here

...
|translations, please!
|
|> >La M$ comunque dice che sei hai IE5 ci dovrebbero essere problemi solo
|>con il DHTML sotto Visual Basic 6.0.
You have problems only if you install IE5, because the DHTML don't work
better with it...... in this case, you may wait the next Service Pack for
VB6...
Hi.....
       Merlino
gizahv...@tin.it
P.S. x NG: almeno faccio qualcosa anch'io!!!^_^

translations, please!
NO
Questo è un NG in italiano.

 wrote in message
news:7e0ak7$k5m$1...@nmaster.tin.it...

But crossposted to a newsgroup commonly using English....
Jeroen.

...

ooopsss Excuse Me.   :-)
Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] AIUTO SU FILE.EXE

Ciao ragazzi, ho un problema praticamente da poco ho lavoratoa un programma
in visual basic dopo che lo compilato, ho perso il sorgente sicome non ho
tempo di rifare tutto, e sono pure molto demoralizato mi richiedo
se ce un modo di ottenere il sorgente, UN DECOMPILATORE di visual basic 6.0
vi ringrazio per le risposte ciao a tutti.

 ha scritto

Pensa, circa 10 anni fa la moglie mi ha cacciato di casa, ho incontrato
altre donne e mi sono pure divertito, ma ora non ho piů tempo (sai, 'sti
programmi) e mi sento molto solo, per cui approfitto e ti chiedo se non hai
una personcina seria da presentarmi, che mi costi poco o niente e che sia
anche carina. Ma sě, dai, fammi 'sto favore e prendi tu tutti gli accordi
che io me la godo. Grazie.

 poco o niente e che sia anche carina.
Siete OT tutti e due. Mai chiedere ad un programmatore notizie di
decompilatori perchč si arrabbia, e mai chiedergli notizie di donne chč di
solito non ne frequenta  perchč non ha tempo da dedicarci ;-)
A tale proposito, dato che siamo OT, parte pure una barzellettina a tema:
---------
Un tizio sta attraversando una strada, quando si sente chiamare da una rana,
che gli dice: "Se mi bacerai, mi trasformerň in una bellissima principessa".
Il tizio si china, la raccoglie e la mette in tasca. La rana allora gli
grida: "Se mi baci e mi ritrasformi in principessa, starň con te una
settimana intera".
Il tizio estrae la rana dalla tasca, fa un sorriso e poi la rimette via.
La rana comincia quindi a gridare: "Se mi baci e mi ritrasformi in
principessa, starň con te e farň tutto quello che vuoi".
Il tizio estrae ancora la rana dalla tasca, sorride di nuovo, e fa per
rimetterla via.
La rana allora gli chiede: "Ma perché fai cosě? Ti ho detto che sono una
bellissima principessa, e che starň con te una settimana facendo tutto
quello che vuoi. Perché non mi baci?"
E il tizio: "Vedi, io faccio il programmatore: non ho tempo da perdere con
le donne. Perň una rana che parla č una vera figata!"
---------
Ciao
*Roby*
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Determinare la connessione attiva

Ciao ragazzi!
Devo determinare quando il computer è connesso ad Internet. Ho pensato di
inserire nel mio programma un controllo Timer che, a intervalli regolari
(diciamo 1 secondo), esegue la funzione "RasEnumConnections": se il numero
di connessioni attive (che mi viene restituito) è maggiore di zero, allora
il computer è connesso. La procedura che utilizzo è corretta? Qualcuno ha
suggerimenti e/o consigli da darmi?
Grazie in anticipo a tutti.
Marco Minerva
http://www.geocities.com/SiliconValley/Foothills/7260/
http://www.armaditaggia.com/marco

...

Te la passo senza avela provata, spero funzioni...
For programs that rely on connecting to the internet, it is very useful to
know whether or not the computer has an active connection.  Whenever Windows
logs on to a dial-up connection, it changes a value in the registry.  The
following code demonstrates how to read this values to determine whether the
computer is connected or not.
Declarations
You must put the following code into the declarations section of your
project.
Public Const ERROR_SUCCESS = 0&
Public Const APINULL = 0&
Public Const HKEY_LOCAL_MACHINE = &H80000002
Public ReturnCode As Long
Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal
hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA"
(ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long,
lpType As Long, lpData As Any, lpcbData As Long) As Long
Code
Public Function ActiveConnection() As Boolean
Dim hKey As Long
Dim lpSubKey As String
Dim phkResult As Long
Dim lpValueName As String
Dim lpReserved As Long
Dim lpType As Long
Dim lpData As Long
Dim lpcbData As Long
ActiveConnection = False
lpSubKey = "System\CurrentControlSet\Services\RemoteAccess"
ReturnCode = RegOpenKey(HKEY_LOCAL_MACHINE, lpSubKey, phkResult)
If ReturnCode = ERROR_SUCCESS Then
    hKey = phkResult
    lpValueName = "Remote Connection"
    lpReserved = APINULL
    lpType = APINULL
    lpData = APINULL
    lpcbData = APINULL
    ReturnCode = RegQueryValueEx(hKey, lpValueName, lpReserved, lpType,
ByVal lpData, lpcbData)
    lpcbData = Len(lpData)
    ReturnCode = RegQueryValueEx(hKey, lpValueName, lpReserved, lpType,
lpData, lpcbData)
    If ReturnCode = ERROR_SUCCESS Then
        If lpData = 0 Then
            ActiveConnection = False
        Else
            ActiveConnection = True
        End If
    End If
RegCloseKey (hKey)
End If
End Function
Use
Here is an example of how to use the ActiveConnection function.
If ActiveConnection = True then
    Call MsgBox("You have an active connection.",vbInformation)
Else
    Call MsgBox("You have no active connections.", vbInformation)
End If

Si, è giusto.
In ogni caso ho inviato al sito comune un articolo che descrive le principali RAS API.....
Dovrebbe uscire presto....
Ciao,
Moreno
#sirri#@
tin.it
(togliete "#" dall'indirizzo)