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
    sabato 22 febbraio 2025
    Bari
    13
    49
    17
    39
    48
    Cagliari
    56
    44
    07
    27
    16
    Firenze
    42
    38
    70
    71
    80
    Genova
    08
    11
    55
    61
    47
    Milano
    57
    47
    09
    66
    51
    Napoli
    57
    72
    39
    24
    25
    Palermo
    08
    77
    16
    26
    34
    Roma
    28
    83
    11
    06
    26
    Torino
    71
    52
    60
    28
    61
    Venezia
    33
    38
    12
    66
    82
    Nazionale
    84
    12
    87
    51
    70
    Estrazione Simbolotto
    Cagliari
    30
    37
    22
    08
    35
Indietro
Alto