Densyy

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á

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

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 ?

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

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

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

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

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á

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 ?

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

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

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

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

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)

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