Ir para conteúdo
Fórum Script Brasil

Densyy

Membros
  • Total de itens

    140
  • Registro em

  • Última visita

Tudo que Densyy postou

  1. Densyy

    Cupom Fiscal

    Olá, pessoal! Estou desenvolvendo um sistema de gestão comercial, porém para concluir o projeto preciso que o software seja capaz de imprimir cupons fiscais. É a primeira vez que mexo com isso, então não sei bem o que preciso ... Se alguém puder me auxiliar, seria muito bom ! Agradeço desde já
  2. Eae kara, em vez de criar uma condição quando o winsock conectar Use um timer para ficar verificando o estado da conexão do jogo, você pode tentar assim if Winsock1.state = 7 then 'aqui você escreve o q acontecerá se estiver ON else 'e aqui quando estiver OFF end if o evento winsock_error, é usado em diversar situações como, falha na conexão, conexão fechada... Mas se seu winsock demora 20 segundos pra conectar , tente fazer um teste com outro ip, caso permaneça, você provavelmente tem problemas na sua rede
  3. Densyy

    Parcelamento

    Ainda n entendi como você quer q funcione o Sistema de Parcelamento Mas vi que você reclamou da divisão simetrica: (Valor Total / Nº de Parcelas = Valor das Parcelas) essa relação sempre vai existir um exemplo de aplicação para Nº de Parcelas definida: Valor Total = 100; Nº de Parcelas = 10; Logo, Valor das parcelas serão 10 Entre tanto , você pode definir o Valor das parcelas e ir somando-as até q chegue no valor total, sendo assim o numero de parcelas será a variavel da questão exemplo de aplicação: Valor Total: 100; Valor das parcelas: 22; Logo, 1º parcela = 22 (22 pago) 2º parcela = 22 (44 pago) 3º parcela = 22 (66 pago) 4º parcela = 22 (88 pago) 5ºparcela = 12 (100 pago) é mais ou menos essa ideia q você quer ?
  4. Ae pessoal Vlw mesmo Deu certo !! Pra quem tiver com a mesma duvida aqui vai o Esquema que encontrei -> Send Project: Option Explicit Private iFileNum As Integer, lPacketSize As Long Private Sub Form_Load() On Error GoTo Err Winsock1.Close Winsock1.LocalPort = 1003 Winsock1.Listen Me.Caption = "Listening: Port 1003" Exit Sub Err: MsgBox "Socket Error!" & vbNewLine & _ Err.Description Unload Me Exit Sub End Sub Private Sub Form_Unload(Cancel As Integer) Winsock1.Close Timer1.Interval = 0 Timer1.Enabled = False End Sub Private Sub Winsock1_Close() If Winsock1.State = sckClosing Then Winsock1.Close End If End Sub Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long) If Winsock1.State <> sckClosed Then Winsock1.Close End If Winsock1.Accept requestID SendFile Winsock1, App.Path & "\tmp.jpg" End Sub Public Sub SendFile(SocketObject As Winsock, ByVal FilePath As String, Optional ByVal PacketSize As Long = 1024) Dim Buffer() As Byte lPacketSize = PacketSize ' save the PacketSize for the timer Timer1.Enabled = False ' make suze timer is not enabled iFileNum = FreeFile ' get free file number Open FilePath For Binary Access Read As iFileNum ' open file ' if file size is smaller than PacketSize, then send the whole file, but not more ReDim Buffer(lngMIN(LOF(iFileNum), PacketSize) - 1) Get iFileNum, , Buffer ' read data SocketObject.SendData Buffer ' send data End Sub Public Function lngMIN(ByVal L1 As Long, ByVal L2 As Long) As Long If L1 < L2 Then lngMIN = L1 Else lngMIN = L2 End If End Function Private Sub Winsock1_SendComplete() Timer1.Enabled = False Timer1.Interval = 1 Timer1.Enabled = True End Sub Private Sub Timer1_Timer() Dim Buffer() As Byte, BuffSize As Long Timer1.Enabled = False If iFileNum <= 0 Then Exit Sub If Loc(iFileNum) >= LOF(iFileNum) Then ' FILE COMPLETE Close iFileNum ' close file iFileNum = 0 ' set file number to 0, timer will exit if another timer event BuffSize = 0 Winsock1.Close Winsock1.LocalPort = 1003 Winsock1.Listen Me.Caption = "Listening: Port 1003" Exit Sub End If 'if the remaining size in the file is smaller then PacketSize, the read only whatever is left BuffSize = lngMIN(LOF(iFileNum) - Loc(iFileNum), lPacketSize) ReDim Buffer(BuffSize - 1) ' resize buffer Get iFileNum, , Buffer ' read data Winsock1.SendData Buffer ' send data ' Show progress Me.Caption = "Sending: " & Format(Loc(iFileNum) / CDbl(LOF(iFileNum)) * 100#, "#0.00") & "% Done" ' timer event will be called again when last packet is sent, close the file then End Sub Receive Project; Option Explicit '// PROGRAM SETTINGS Const TCP_IP As String = "192.168.1.2" Const TCP_PORT As Long = 1003 Private ReceiveData As String Private FileBytes As Long '// CLOSE WINSOCK Private Sub Winsock1_Close() Dim strTempFile As String Dim intFile As Integer If Winsock1.State = sckClosing Then Winsock1.Close End If strTempFile = App.Path & "\tmp.jpg" intFile = FreeFile Open strTempFile For Binary As #intFile Put #intFile, , ReceiveData Close #intFile ReceiveData = "" Me.Caption = "Done" End Sub '// DATA ARRIVES Private Sub Winsock1_dataArrival(ByVal bytesTotal As Long) Dim strData As String Winsock1.GetData strData ReceiveData = ReceiveData & strData FileBytes = FileBytes + bytesTotal Me.Caption = "Downloading: " & FileBytes & " bytes" End Sub '// ERROR Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, _ ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean) Winsock1.Close MsgBox "Error Connecting!" End Sub '// FORM LOAD Private Sub Form_Load() Timer1.Enabled = True Timer1.Interval = 100 With Winsock1 .RemoteHost = TCP_IP .RemotePort = TCP_PORT .Connect End With End Sub '// UNLOAD FORM Private Sub Form_Unload(Cancel As Integer) Winsock1.Close Timer1.Interval = 0 Timer1.Enabled = False End Sub fonte: http://www.vbforums.com/showthread.php?416...les-via-winsock
  5. Densyy

    You Tube

    Frata n entendi muito bem o objetivo do q você pediu se quer somente trocar http://www.youtube.com/watch?v=zJYIw2A3YjI por http://www.voobys.com/watch?v=zJYIw2A3YjI quando clicar emum botão , você pode fazer assim Primeiro criar uma variavel q vai armazenar o link do video depois você vai dar o valor do link do video pra ela dai você pode criar um filtro simples pra substituir o youtube por voobys mais ou menos assim: Dim Filtro() As String Dim SITE As String Private Sub Command1_Click() SITE = Text1.Text Filtro = Split(SITE, "watch?") SITE = "http://www.voobys.com/watch?" & Filtro(1) Text1.Text = SITE End Sub
  6. Densyy

    Duvida vb

    Kara , criei uma funçãozinha pra você aqui primeiro declarei uma variavel q no caso vai armazenar o conteudo do script no caso "<object posX="-1435.750000" posY="-652.664063" posZ="1054.937500" rotX="0" rotY="0" rotZ="0" model="13662" id="object3" />" Dim Texto As String Depois a função q vai filtrar o valor de texto eu coloquei como exemplo o valor q vai ser filtrado em um textbox basta você colocar essa code em um botão ou algo do genero Dim STR() As String Dim a1, b1, c1, d1, e1, f1, g1 As String Dim a2, b2, c2, d2, e2, f2, g2 As Integer Dim a3, b3, c3, d3, e3, f3, g3 As String Texto = Text1.Text STR = Split(Texto, "model=") a1 = STR(1) STR = Split(a1, "id=") a2 = Len(STR(0)) a3 = Mid(STR(0), 2, a2 - 3) '---------------------- STR = Split(Texto, "posX=") b1 = STR(1) STR = Split(b1, "posY=") b2 = Len(STR(0)) b3 = Mid(STR(0), 2, b2 - 3) '----------------------- STR = Split(Texto, "posY=") c1 = STR(1) STR = Split(c1, "posZ=") c2 = Len(STR(0)) c3 = Mid(STR(0), 2, c2 - 3) '----------------------- STR = Split(Texto, "posZ=") d1 = STR(1) STR = Split(d1, "rotX=") d2 = Len(STR(0)) d3 = Mid(STR(0), 2, d2 - 3) '---------------------- STR = Split(Texto, "rotX=") e1 = STR(1) STR = Split(e1, "rotY=") e2 = Len(STR(0)) e3 = Mid(STR(0), 2, e2 - 3) '---------------------- STR = Split(Texto, "rotY=") f1 = STR(1) STR = Split(f1, "rotZ=") f2 = Len(STR(0)) f3 = Mid(STR(0), 2, f2 - 3) '---------------------- STR = Split(Texto, "rotZ=") g1 = STR(1) STR = Split(g1, "model=") g2 = Len(STR(0)) g3 = Mid(STR(0), 2, g2 - 3) MsgBox "CreateObject(" & a3 & "," & b3 & "," & c3 & "," & d3 & "," & e3 & "," & f3 & "," & g3 & ");" Espero ter Ajudado
  7. Densyy

    Duvida Shell VB 2008

    kara tenta desse jeito 1º Declara a função: Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long no botão ShellExecute hwnd, "open", ("seu_diretorio"), "", "", 1 se n funcionar com o seu arquivo tente abrir outros dai você vai entender onde esta o problema
  8. Então pessoal Preciso de um meio no vb com a finalidade de transferencia de arquivos para o cliete, Exemplo de Aplicação: Servidor -> envia arquivos para o Cliente Cliente -> Recebe o Arquivo to tentando com o winsock , mas n deu em nada Sobre os arquivos , são de qualquer tipo exemplo (txt,mp3...) Agradeço desde já
  9. Densyy

    Parcelamento

    Eae kara, então , a questão do parcelamento é coisa simples você precisa dizer suas necessidades , assim fica mais facil de ajudar Você disse q só conseguiu fazer em parcelar iguais você quer adotar sistema de juros ? ou as parcelas vão aumentando/diminuindo a cada mensalidade ?
  10. Kara, colocar uma Label dentro da Progressbar , sinceramente n sei se é possivel procurei na Progressbar alguma propriedade de escrita e n vi nada O q você pode fazer, é criar uma labelzinha q avise pro usuario a porcentagem Coloque ela ao Lado mesmo
  11. Kara, n vou dizer q é impossivel fazer isso Mas é um serviço de alto nivel pra isso você teria q ter conhecimeto em engenharia reversa... precisaria descompila-lo, melhor se esquecer essa ideia
  12. Kara, n entendi o seu esquema com a progressbar você fez o loop dela diminuindo ? de qualquer jeito, pra fazer um esquema simples, onde revele pra nos o percentual da barra, você pode fazer assim: Primeiro declare uma variavel global Dim x As String Agora crie uma Label ou qualquer coisa q ira mostrar o percentual da barra dentro do loop você define assim: x = ProgressBar1.Value * 100 / ProgressBar1.Max Label1.Caption = x Lembre se q isso é só um exemplo Espero ter ajudado
  13. Nas ferramentas ao lado esquerdo tem uma em especial chamada Frame Abrir um form dentro do outro , é meio ficção ^^ você pode criar o seu form(q você quer abrir) dentro do frame e quando quiser q o seu form apareça você define Frame1.visible = true
  14. Eae kara, pelo q entendi o q você quer fazer é bem simples se esse for o comando q você quer execultar no bat -> C:\sampfp.exe -m && cmd Tente usar assim W.WriteLine ("C:\windows\system32\cmd.exe /c C:\sampfp.exe -m && cmd" & Text1.Text)
  15. Eae kara , tentando um Brute Force? a questão da senha com numeros é muito facinho o seu problema sera tentar autenticar com essas senhas ^^ prafazer isso basicamente você precisa de um Timer dentro dele você defini uma variavel q gera as senhas assim: Dim x As Integer x = x +1 se quiser fazer com q uma Listbox registre as informações só fazer assim: Listbox1.items.add(x) N se esqueça q pra ligar um Timer você precisa definir em um botão ou no form pra ele ligar , assim: Timer1.Enabled = True Timer1.Interval = 10 'aqui você poe o tempo q quiser,depende da sua necessidade' Você disse q queria apenas senhas com 4 dígitos você vai precisar criar umas condições assim: if x < 10 then listbox1.items.add("000" & x) end if if x > 10 then if x < 100 then listbox1.items.add("00" & x) end if end if if x > 100 then if x < 1000 then listbox1.items.add("0" & x) end if end if if x > 1000 then if x < 10000 then listbox1.items.add(x) end if end if e assim por diante ... lembrando q são só exemplos , o codigo você gera de acordo com suas necessidades
  16. Preciso q o VB logue no FTP Tentei conectar na porta ftp normalmente porem quero q o Vb se autentique no FTP tentei assim winsock1.senddata "USER usuario" winsock1.senddata "PASS senha" vi em alguns tutoriais q era assim q era feito a autentificação mas como vou saber se estou logado ou n , se deu algum erro? alguém pode me dar um help de como se conectar no FTP pelo Vb ?
  17. Então kara , notei q você quer gerar um arquivo q ficara acumulando as informações Pra fazer isso é bem simples On Error Resume Next 'vai servir pra n interromper o funcionamento da aplicação , caso de algum problema Dim arquivo As Long 'cria a variavel arquivo do tipo long arquivo = FreeFile ' define ela como arquivo livre Open "C:\Teste.txt" For Append As arquivo 'esta especificando o diretorio q ficara o arquivo Print #arquivo, "Texto" 'onde esta entre parenteses fica as informações q você quer gravar , no caso pode tirar e colocar uma variavel q estiver com os valores q quiser Close arquivo 'fecha o arquivo Espero q ajude
  18. Ola pessoal , estou com um problema quanto ao VB6 Estou criando um Bot , ele faz uma rotina de eventos porém n estou conseguindo fazer com q o mouse click em determinada coordenada Para simplicar , preciso de uma função onde ao definir as coordenadas X,Y o mouse click (Botão Esquerdo) Desde já Agradeço
  19. Densyy

    VB 2008 Copilação

    Bom galerinha estou com uma problema pra copilar o script meu objetivo é que os usuários possam usa-lo também Já enviei a pasta Debug , Release Já criei um batzinho pra registrar as dlls Já move as dlls para a pasta System32 Mas mesmo assim n consigo rodar o projeto somente no meu pc ^^^ Não gostaria de criar um Instalador Pensei q poderia fazer um genérico ... Peço ajuda de vocês Como posso passar meu projeto funcionando para os usuários?
  20. Densyy

    TCPCliente

    Ae galerinha Migrei pro VB 2008 Estou com umas dificuldades referentes ao Socket (TCPClient) Criei um Simples Port Scan pra começar a entender a logica , Porém, esta apresentando alguns problemas, Quando Escaneio um ip local exemplo "127.0.0.1" Funciona De Boa , mas quando escaneio um ip Remoto Demora anos ... Especificamente uns 2 min pra Escanear 1 porta Pensei q poderia ser o TimeOut Queria saber como posso defini-lo Aqui a Variável ... Dim Conector As New TcpClient
  21. Densyy

    (Ajuda) Server

    Ola, estou com uma dificuldade no comportamento do server q criei em perl codigo : para q entendam melhor -> Server #!/usr/bin/perl use IO::Socket::INET; print "Iniciando Servidor\n"; $conectar = IO::Socket::INET->new(LocalAddr=> "localhost", LocalPort=> 1360, Proto=> "tcp", Listen=> SOMAXCONN, Reuse=> 1) or die "Não foi possivel iniciar o servidor\n\n"; $data = <$conectar>; while(1){$acc = $conectar->accept(); $acc->recv($data,1024); if($data) {print "Recebido: $data\n"}} e aqui o Cliente: #!/usr/bin/perl use IO::Socket::INET; $conectar = IO::Socket::INET->new(PeerAddr=> "ip", PeerPort=>1360, Proto=>"tcp", Timeout=>"10") or die "Erro\n\n"; $conectar->send("conectar"); O Server funciona normalmente Porem n esta aceitando conexões de fora, Vou explicar melhor Quando coloco o Ip Interno do servidor exemplo"192.168..." consigo conectar ao server porem quando coloco o ip externo do servidor da erro Sendo assim só usuarios da minha rede local porem acessa-lo Gostaria q ele aceitasse conexões remotas tambem Para esclarecer: já tentei substituir LocalAddr=> "localhost" pelo ip do server , mas nesse caso n foi possivel abrir o server Caso alguém saiba solucionar esse problema... Agradeço des de já
  22. Densyy

    Conexão WEB

    eae pessoal, surgiu uma dificuldade Preciso q o Perl se logue em um Site exemplo o Youtube, Facebook ou algo do tipo Não faço ideia de q modo usar , se possivel alguém poderia dar um help? Aguardo Respostas ...
  23. Densyy

    (Ajuda) Net::RawIP

    #!/usr/bin/perl use Net::RawIP; Ae galerinha alguém poderia me dar um help com esse modulo estou querendo aprende-lo porem n entendo o codigo se possivel alguém poderia explicar-me este codigo? $packet = new Net::RawIP; $packet->set({ ip => { saddr => '192.168.1.1', daddr => '192.168.1.2' }, tcp => { source => 2323, dest => 23, ack => 1, seq => 10000000, ack_seq => 10000000, data => 'Testing Net::RawIP' } }); $packet->send(0,1);
  24. Densyy

    (AJUDA) Conectando ao IRC

    esse ultimo link http://oreilly.com/pub/h/1964#code Funcionou aqui Obrigado pelo link , vou estuda-lo aqi
  25. Ola pessoal , começei com o Perl a pouco tempo gostaria de conectar-me ao irc Dei uma olhada em milhoes de tutoriais , mas nenhum funcionou criei um exemplo simples aqui , pra mostrar onde PAREI #!/usr/bin/perl use IO::Socket; $server = "irc.exemplo.org"; $nick = "|bot|"; $canal = "#canal"; $conectar = IO::Socket::INET->new(PeerAddr=> $server, PeerPort=> "6667", Photo=> "tcp") or die "ERRO\n"; print $conectar "USER $nick\n"; print $conectar "NICK $nick\n"; print $conectar "JOIN $canal\n"; Gostaria de saber o q esta errado e como posso concertar Aguardo respostas
×
×
  • Criar Novo...