Jump to content
Fórum Script Brasil

Densyy

Membros
  • Content Count

    140
  • Joined

  • Last visited

Community Reputation

0 Neutro

About Densyy

  • Birthday 03/06/1996

Contatos

Perfil

  • Gender
    Male
  • Location
    SP

Recent Profile Visitors

1756 profile views
  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. 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
  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)
  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?" & Filtr
  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
  7. 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. 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
×
×
  • Create New...