Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

nunopitbull

CMD e Shell

Mensagens Recomendadas

nunopitbull

Option Explicit
Private Sub Command1_Click()
Dim Username As String
Username = Text1.Text
End Sub

Private Sub Command2_Click()
Dim Password As String
Password = Text2.Text
End Sub

Private Sub Command3_Click()
Dim PCAddress As String
PCAddress = Text3.Text
End Sub

Private Sub Command4_Click()
Shell ("cmd.exe /k telnet 192.168.1.254")
Timeropentimer.Enabled = True
End Sub

Private Sub Timer1_Timer()
Shell ("cmd.exe /k" & "Username")
Timer2.Enabled = True
Me.Enabled = False
End Sub

Private Sub Timer2_Timer()
Shell ("cmd.exe /k" & "Password")
Timer3.Enabled = True
Me.Enabled = False
End Sub

Private Sub Timer3_Timer()
Shell ("cmd.exe /k wireless macacl add ssid_id=0 hwaddr='PCAddress' permission=allow name=Test")
Timer4.Enabled = True
Me.Enabled = False
End Sub

Private Sub Timer4_Timer()
Shell ("cmd.exe /k saveall")
Me.Enabled = False
End Sub

Private Sub Timeropentimer_Timer()
Timer1.Enabled = True
Timeropentimer.Enabled = False
End Sub

Como fazer ele executar os comandos no cmd, com timers e dentro do mesmo cmd? E com Strings?

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
nunopitbull

Eu uso a NET do MEO.

Mas como devem saber, qualquer um vai ao google e prontos. Sabem a pwd e o qu quiserem. Mas isso não interessa. Eu na na minha net só aceito pessoal que teja registado na minha lista:

-> CMD.exe (Registar o teu PC (Faz estes passos com ligação directa, não com wireless.)

  -> ipconfig /all (retira o que diz Endereço Físico na "placa de rede local sem Fios Ligação de rede sem Fios)

  -> O número é XX.XX.XX.XX.XX.XX

  -> telnet 192.168.1.254

  -> Administrator / 3!play

  -> wireless macacl config ssid_id=0 control=lock (Só na primeira vez)

  -> wireless macacl add ssid_id=0 hwaddr= <XX.XX.XX.XX.XX.XX (aquele do ipconfig /all)> permission=allow name=QualquerUm

  -> saveall

E isso executa-se no cmd.exe. Que por sua vez, quando se faz o telnet <IP> muda(acho eu) para um telnet client.

Ora o que eu queria fazer com o VB6 era automatizar isto:

-> CMD.exe (Admin - Adicionar outros PC's)

  -> ipconfig /all (no outro PC que queres)

  -> telnet 192.168.1.254

  -> Administrator / 3!play (depende dos teus dados, se alteraste ou não)

  -> wireless macacl add ssid_id=0 hwaddr= <XX.XX.XX.XX.XX.XX> permission=allow name=QualquerUm

  -> saveall

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.