Novità

NUOVO AMBIENTE SCRIPT AREA TECNICA

  • Creatore Discussione Creatore Discussione LuigiB
  • Data di inizio Data di inizio
Questo “normalmente” (in tB) significa che hai lanciato per la seconda volta lo stesso programma, mentre il primo é ancora in esecuzione. Guarda, minimizzando tB, se vedi un’altra istanza delle stesso programma che hai lanciato. In questo caso chiudilo. Oppure usa task manager, se é visibile solo lí, per fare lo stesso, ovvero chiuderlo. Poi lancia il programma per il quale hai ricevuto il messaggio di errore
 
Ciao a tutti io per adesso ho solo reinstallato office e scaricato la versione di TB 237. Ai prox aggiornamenti e good saturday 👋 :D

ps: piccolo aggiornamento... rifatto test su nuova versione 237 a me con l'opzione win32 continua a dirmi "Interfaccia non registrata" mentre se rifaccio il test con l'opzione win64 funziona... tutto... e per adesso non vedo nemmeno la pubblicità di 5 secondi... Forse è solo il mio s.o. WIN 11 PRO che non funzia con la win32...
 
Ultima modifica:
Luigi scusa per capire meglio :

Questa è il tuo percorso da modificare

E:\PROGETTI_DOTNET\VSGIOCHILIB\DLLGIochi\TestDLLGIochi\bin\Release

Per capire meglio

PROGETTI_DOTNET è una cartella : cosa contiene ?

VSGIOCHILIB è una cartella : cosa contiene ?

DLLGIochi è una cartella : cosa contiene ?

TestDLLGIochi è una cartella : cosa contiene ?
 
niente fatto come prima ma con un errore diverso :ROFLMAO:
Vedi l'allegato 2252180


Legend e Gennios ripartite dalla registrazione della dll e fai scrivere un log al file bat devi modificare cosi la riga dentro al file bat , salvarlo e poi lanciarlo da amministratore

naturalmente devi sostituire con i percorsi sdul tuo pc questi sono i miei e lo dico anche a Genios

ad esempio se uno ha messo il file VSDLLGiochi.dll nella cartella "c:\paperino\"

deve scrivere c:\paperino\ al posto del mio percorso che inizia con E:\ e diventa

c:\paperino\VSDLLGiochi.dll

va sostituito anche il percorso del log per vedere se la registrazione ha funzionato

e:\temp\log.txt


lanciare il file bat come amministratore epoi andare a leggere il log



Codice:
C:\Windows\Microsoft.NET\Framework64\v4.0.30319\RegAsm.exe "E:\PROGETTI_DOTNET\VSGIOCHILIB\DLLGIochi\TestDLLGIochi\bin\Release\VSDLLGiochi.dll" /tlb:VSDLLGiochi.tlb /codebase >> e:\temp\log.txt
 
indovinatoconqualeopzionetra32e64mifunzia.jpg


con la win32 nada 😶

con la win64 qualcosina... ma dopo un primo entusiasmo perchè non dava errori mi sono accorto che non fa un gran chè... mi da solo quel messaggio nell'immagine e stop... non fa altro... :rolleyes:
 
Ultima modifica:
ho aggiunto altre funzioni e fatto una revisione di quelle che avevo gia scritto.

è necessario aggiornare sia la dll che il progetto Twinbasic.

la dll basta sostituirla prendendola dal file che scaricate e copiandola al posto di quella precedente

stessa cosa per il progetto Twinbasic , va sostituito con quello nuovo presente nel file zip.




per chi vuole vedere le funzioni attualmente presenti metto qui il link dell'help



p.s.

questa volta il progetto twinbasic l'ho salvato levando la referenza alla dll , quindi la prima cosa da fare appena aperto è andarla ad impostare

1674926019522.png


N.B: Nel file rar non ho piu messo l'eseguibile compilato cosi non c'è problema di nessun virus vero o finto che sia.
 
Vedi l'allegato 2252183


con la win32 nada 😶

con la win64 qualcosina... ma dopo un primo entusiasmo perchè non dava errori mi sono accorto che non fa un gran chè... mi da solo quel messaggio nell'immagine e stop... non fa altro... :rolleyes:


non hai messo l'archivio giusto .. cancellalo e ricrealo con questo script di spaziometria

ora che sei stato promosso a chef non puoi fare piu i soliti casini se non vuoi ritornare alla velocità della luce al ruolo di aiuto-aiuto-aiuto-pasticcere


Codice:
Option Explicit
Sub Main
   Dim nEstrInizio,nEstrFine
   Dim DataIni,DataFin
   Dim sFile
   Dim sChrSep
   Dim sDirDest
   
   'sDirDest = "C:\dovemipare\"
   sDirDest = GetDirectoryAppData
   
   
   sChrSep = ";"
   sFile = AddSlash(sDirDest) & "EstrazioniLotto.csv"
   If EliminaFile(sFile) Then
      nEstrInizio = 1
      nEstrFine = EstrazioniArchivio
      Call EsportaEstr(nEstrInizio,nEstrFine,sFile,sChrSep)
   End If
End Sub
Sub EsportaEstr(nEstrInizio,nEstrFine,sFile,sChrSep)
   Dim k,f,idEstr
   Dim sRecord
   Dim nProgr
   Dim sDataCorr
   Dim r,e
  
  
   For k = nEstrInizio To nEstrFine
      Call Messaggio("Estrazione : " & k)
      idEstr = k
      ReDim aNum(0)
      If GetEstrazioneCompleta(idEstr,aNum) Then
         nProgr = nProgr + 1
         sDataCorr = Replace(DataEstrazione(idEstr),".","/") & " 00:00:00"
         sRecord = ""
         sRecord = sDataCorr & ";" & FormattaStringa(IndiceAnnuale(idEstr),"0000000") & ";" & FormattaStringa(IndiceMensile(idEstr),"0000000") & ";0000000;"
       '  sRecord = FormatSpace(nProgr,9,True) & sChrSep
       '  sRecord = sRecord & IndiceAnnuale(idEstr) & sChrSep
       '  sRecord = sRecord & sDataCorr & sChrSep
         
         For r = 1 To 11
            For e = 1 To 5
               sRecord = sRecord & Format2(aNum(r,e)) & sChrSep
            Next
         Next
         sRecord = RimuoviLastChr(sRecord,sChrSep)
         Call ScriviFile(sFile,sRecord,False,True)
      Else
         Exit For
      End If
      If ScriptInterrotto Then Exit For
      Call AvanzamentoElab(nEstrInizio,nEstrFine,k)
   Next
   Call CloseFileHandle(sFile)
  ' Call LanciaFile(sFile)
  Scrivi "Esportato file " & sFile
  MsgBox "Fine",vbInformation
End Sub

Function AddSlash(s)
   If Right(s,1) <> "\" Then
      AddSlash = s & "\"
   Else
      AddSlash = s
   End If
End Function
 
non hai messo l'archivio giusto .. cancellalo e ricrealo con questo script di spaziometria

ora che sei stato promosso a chef non puoi fare piu i soliti casini se non vuoi ritornare alla velocità della luce al ruolo di aiuto-aiuto-aiuto-pasticcere

" come è umano lei... " 🤣

Ad ogni modo...

l'archivio usato è l'ultimo che ha condiviso lei Shifu Master 😆
 
cavolo sti antivirus sono contro di me a quanto pare .. comunque è falso allarme di sicuro , esorto chi non si fida ad usare per le prove una macchina virtuale..

usa l'archivio ricrealo con lo script ..

e stai attento che alal pasticceria ti mando i nas ..:)
 
cavolo sti antivirus sono contro di me a quanto pare .. comunque è falso allarme di sicuro , esorto chi non si fida ad usare per le prove una macchina virtuale..

usa l'archivio ricrealo con lo script ..

e stai attento che alal pasticceria ti mando i nas ..:)

lo tolgo dalla quarantena e ricreo l'archivio a modo con lo script che ha creato lei a tale scopo presumo... 😜 Windows defender in effetti lo faceva passare.. E' norton che è piuttosto intransigente... nei tuoi confronti... ;)
 

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 11 luglio 2025
    Bari
    39
    28
    27
    01
    80
    Cagliari
    54
    79
    69
    43
    61
    Firenze
    62
    60
    86
    80
    05
    Genova
    45
    10
    42
    79
    84
    Milano
    28
    59
    23
    46
    11
    Napoli
    01
    55
    52
    50
    39
    Palermo
    75
    17
    74
    82
    54
    Roma
    38
    13
    79
    25
    44
    Torino
    68
    29
    26
    40
    06
    Venezia
    46
    84
    64
    27
    67
    Nazionale
    72
    77
    46
    61
    23
    Estrazione Simbolotto
    Nazionale
    12
    34
    36
    10
    39
Indietro
Alto