Jump to content
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

Sign in to follow this  
nunopitbull

CMD e Shell

Recommended Posts

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?

Share this post


Link to post
Share on other 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

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.