Ir para conteúdo
Fórum Script Brasil

flashit

Membros
  • Total de itens

    3
  • Registro em

  • Última visita

Sobre flashit

Contatos

  • Website URL
    http://www.conquestgames.com.br
  • Skype
    zerocallitp

Perfil

  • Gender
    Male
  • Location
    Itapema -sc

flashit's Achievements

0

Reputação

  1. Grato meu amigo vou testar aki se da certo.
  2. Ola boa noite pessoal. Minha duvida pode ser simples para os que são mais avançados em programação Visual Basic, mas pra mim esta sendo triste isso. Gostaria de evitar que um site que esta dentro de um form fosse aberto fora do mesmo usando a funçao SHIFT+LEFT CLICK meu form seria um painel de controle com apenas um webbrowser Private Sub Form_Load() Site = "http://www.conquestgames.com.br/muonline/launcher/upanel/index.php" WebBrowser1.Navigate (Site) End Sub Queria isto dentro do form apenas, que não tivesse jeito para usuarios de nivel intermediario abrir o link no navegador.
  3. Bom dia pessoal, sou membro à bastante tempo, porem comecei a usar o forum esses dias. Minha duvida é relativa ao controle winsock, estou tendo "problemas" com o evento winsock_error, neste caso é um launcher de um jogo, o problema é que usei o controle winsock para verificar se as portas dos servidores estao abertas... ira ser impresso ONLINE, caso estejam fechadas ira ser impresso OFFLINE. a questão é que para verificar se as portas estao fechadas eu uso o evento winsock_error, e o meso demora 20 segundos pra me retornar um valor, sendo assim acredito que possa estar gerando um tipo de hammering no meu servidor, pois é feito um tipo de "ping", me corrijam se eu estiver errado, esntao queria saber se existe alguma forma de contornar isso segue a descrição do meu codigo: 'aqui se estiver online imprime a imagem ONLINE Private Sub Winsock1_Connect() img1.Visible = True img1.Left = 96 img1.Top = 512 Winsock1.Close End Sub 'aqui se estiver offline imprime a imagem OFFLINE 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) img2.Visible = True img2.Left = 96 img2.Top = 512 Winsock1.Close End Sub
×
×
  • Criar Novo...