Visualizza post

Questa sezione ti permette di visualizzare tutti i post inviati da questo utente. N.B: puoi vedere solo i post relativi alle aree dove hai l'accesso.


Post - faustf

Pagine: 1 [2] 3 4 ... 6
16
Programmazione / Re:regexp è quasi amore m .....
« il: 18 Gennaio 2018, 10:05:12 »
mi rispondo , da usare scan :D
ecco il sostituto
Codice: [Seleziona]
 For i = 0 To num.Max 
      If num[i] = "3389/tcp open  ms-wbt-server" Then
        Shell "nbtscan  -e  " & ss[i] To RepScanNTB
        baobab = Scan(RepScanNTB, "* *")
        
        For h = 0 To baobab.Count
          ColumnView1.Add(baobab[0], baobab[1])
          ColumnView1.Item[1] = baobab[h]
        Next
        
        Inc a
      Endif
    Next
anche se adesso non riesco a capire come inserire nel colomnview i vari contenuti array
qualcuno può darmi una dritta??  grazie a tutti

17
Programmazione / regexp è quasi amore m .....
« il: 18 Gennaio 2018, 00:48:25 »
ciao a tutti 
andro al sodo
avendo un testo di questo tipo  192.168.1.35     pc-tred
vorrei  splittare sullo spazio tra le due scritte (lo spazio è variabile) volendo usare regex   ho fatto una cosa del genere
Codice: [Seleziona]
 
        sNTB = New RegExp(RepScanNTB, "[^\\s]*")
        For h = 0 To sNTB.Max
          Print "QUI" & sNTB[h]
        Next

ma  mi dice che unknow  symbol in sntb.max m  ora apparte diciamo questo  , se clicco su sNTB vedo che  è vuota come se la regexp non funzionasse
qualcuno puo aiutarmi ?? grazie infinite

18
Programmazione / Re:columnview and checkbox è possibile ???
« il: 18 Gennaio 2018, 00:43:59 »
ciao avevo letto qualcosa del genere qui sul forum , spero pero che nelle prossime versioni miglioreranno , perchè trovo che siano un po degli accrocchi di soluzioni ma  meglio di nulla  è :D

19
Programmazione / Re:outofbound array maperchè? ? ?
« il: 17 Gennaio 2018, 01:06:09 »
mi rispondo  scusate 
dovevo metter b =  sNTB.Max
ne while
perdono :'( :'(

20
Programmazione / outofbound array maperchè? ? ?
« il: 17 Gennaio 2018, 00:57:33 »
Buona sera a tutti
ho un programmino   si fatto
Codice: [Seleziona]
 Dim GetwayIP, RepScanNTB As String
  Dim Getway As String
  Dim GetwayMeno As String
  Dim IP As String
  Dim Port3389 As String
  Dim num, ss, sNTB As String[]
  Dim i As Byte
  Dim a, b As Byte
  
  If TextBox1.Text = "" Then 
    Message.Error("Errore devi inserire la pass di root se vuoi che funzioni, Ciao!")
  Else
    Shell "(/sbin/ip route | awk '/default/ { print $3 }')" To GetwayIP
    Getway = Trim(GetwayIP) 
    GetwayMeno = Left(Getway, -1)   
    Shell "echo " & TextBox1.Text & " | sudo -S nmap -T4 -p3389 " & Getway & "/24 -oN /tmp/h" Wait
    Shell "nbtscan  -e  " & Getway & "/24" To RepScanNTB
    Print RepScanNTB
    Shell "cat /tmp/h  | grep -oP '" & GetwayMeno & "*'" To IP
    Shell "cat /tmp/h | grep -P '3389/tcp '" To Port3389
    
    sNTB = Split(IP, "\n")
    ss = Split(IP, "\n")
    ss.Remove(0)
    num = Split(Port3389, "\n")
    
    For i = 0 To num.Max 
      If num[i] = "3389/tcp open  ms-wbt-server" Then
        b = 0
        While sNTB.Max   
          Print InStr(sNTB[b], ss[i])
          Inc b 
        Wend
        
        ColumnView1.Add(a, ss[i])
        Inc a
      Endif
    Next
  Endif
  
End

 
quin nel print mi dice outof bound ma  come mai ??
    b=0
While sNTB.Max   
          Print InStr(sNTB, ss)
          Inc b
        Wend
qualcuno ha  idea delperchè???
grazie a tutti

21
Programmazione / Re:convertire una string in numeri?
« il: 16 Gennaio 2018, 14:28:37 »
che pollo che sono = comparazione  non ci avevo propio pensato  ;D ;D ;D

per  quanto riguarda l uso della shell , non  sono daccordo con quanto detto da ceskho , l uso della shell non è certo per sminuire gambas, anzi gambas dimostra alta flessibilità e al dilà di quello  , se posso fare una cosa con una riga di codice  anzichè 20 righe di codice  , preferisco la soluzione piu rapida , immagina  nel programma che  sto facendo: dovrei  fare una classe  con socket che fa la stessa cosa di nmap , fare le  regexp alla gambas ,che è un modo complicatissimo per fare una cosa semplice in bash , tutto questo per dimostrare cosa???   che so usare gambas e sono un virtuoso del  gambero??? ,ok chi lo vuol fare lo faccia  , ma se cè la possibilità di non farlo io preferisco non farlo , quando ceskho o un altro non ricordo , dice  se devi usare gambas per  fare maschere a bash  usa zenity , be  paragonare  zenity a  le maschere di gambas è un po come  tromb..... e stare a guardare  , con gambas non ho i container , cosa che ho con tutti gli altri linguaggi  tranne credo qt (che a me  non piace ) , le maschere in zenity sono standard se vuoi modificarle lo fai a mano , con codice , in gambas tutto visuale , vuoi mettere ???.
Poi  sconsiglia di usare shell, ma al dilà del motivo: per conoscere a fondo  gambas , poi non dice se cè un aspetto tecnico percui meriti effettivamente non usare la shell , tipo velocità  possibilità di introduzione  bug etc etc
o mi sbaglio ? ?

22
Programmazione / Re:convertire una string in numeri?
« il: 16 Gennaio 2018, 10:52:40 »
mi rispondo da solo per i posteri, credo di aver capito cosi ma ovviamente chiedo conferma
in pratica  quando converti una stringa ,la converti momentaneamente  quindi  la conversione se non la metti dentro un integer sei fregato ,perche poi  lui x l operazione successiva  la  tratta sempre come è stata dichiarata all inizio cioè stringa e  qundi va in false  in fatti cosi funziona
Codice: [Seleziona]
 Dim y As Integer

   y = Val(dimens[1]) 
  If ColumnView1.Item.Selected = True Then 
    Print ColumnView1.Item.Text
    Shell ("rdesktop  -k it -a 16 -z -g " & dimens[0] & "x" & (y - 50) & " -5 -P " & ColumnView1.Item.Text)
   

23
Programmazione / Re:convertire una string in numeri?
« il: 16 Gennaio 2018, 10:42:44 »
scusami ma perchè   con questo costrutto    Print Val(dimens[1]) = - 50 mida come risposta  false???
anziche il numero - 50 ??

24
Programmazione / Re:convertire una string in numeri?
« il: 16 Gennaio 2018, 10:36:47 »
grazie infinite non so perchè ma le parentesi non le avevo considerate  , cio il cervello in avaria  ;D ;D ;D grazie

25
Programmazione / Re:convertire una string in numeri?
« il: 16 Gennaio 2018, 10:08:56 »
in pratica io ho una  stringa  si  formata  1120x768  l ho splittata  alla  x  quindi  un array cosi formato 1120  e 768  , voglio sottrarre 50 a 768 ma  ovviamente poichè stringa  non  me lo fafare   quindi  voglio convertirlo    in integer per poterlo fare

Codice: [Seleziona]
  
  Shell "xdpyinfo  | grep -o -P '(?<=dimensions:).*(?=pixels)'" To Resolution
  
  Print Resolution
  dimens = Split(Resolution, "x")
  Print dimens[0]
  Print Val dimens[1] = (dimens[1] - 50)
parte del codice

26
Programmazione / Re:convertire una string in numeri?
« il: 16 Gennaio 2018, 09:38:16 »
ho seguito l' esempio qua
http://gambaswiki.org/wiki/lang/val?nh
la tua stringa sarebbe  nel mio caso  dimens

27
Programmazione / convertire una string in numeri?
« il: 16 Gennaio 2018, 00:32:30 »
buona sera  a tutti
vorre convertire  il contenuto di una stringa string in int
ho provato  con print val string  ma  mi dice unknow identified val  , forse dovrei attivare qualche componente ???
se si sapreste dirmi quale ??
è probabile che nell help non ci sia scritto a quale componente fa riferimento ???
grazie a  tutti

28
Programmazione / Re:columnview and checkbox è possibile ???
« il: 15 Gennaio 2018, 23:52:03 »
hai ragione scusa , la  fretta è cattiva consigliera

29
Programmazione / Re:columnview and checkbox è possibile ???
« il: 15 Gennaio 2018, 17:08:26 »
scusa una domand a come faccio per far girare l esempio basta che copi e incolli in un progetto vuoto nel  main.class?

ma poi la spiegazione  che mi hai mandato è della gridview  io vorrei columview ??  è la stessa  zuppa ??



grazie

30
Programmazione / columview come si usa??
« il: 15 Gennaio 2018, 10:52:14 »
buon di
ho creato una columview e popolato con dei dati ora vorrei selezionando uno di essi tramite un  bottone  stampare in console il dato (per iniziare) ho creato una cosa del genere per farlo
Codice: [Seleziona]
 If ColumnView1.Item.Selected = True Then 
    Print ColumnView1.Item.Text
  Else
    Message.Error("Errore devi seleionare un indirizzo ip") 
  Endif
ma  solo l ultimo dato me lo stampa  gli altri precedenti mi dice che non sono selezionati anche quando li seleziono  epremo il bottone
come mi ??? cosè che sbaglio ???
grazie a tutti

Pagine: 1 [2] 3 4 ... 6