infoDEVI v1.1.83 [CODE]

Publicado por D3M0N, 20 de Enero de 2012, 03:47:34 AM

Tema anterior - Siguiente tema

0 Miembros y 2 Visitantes están viendo este tema.

Imprimir
Ir Abajo Páginas1
Acciones del Usuario

D3M0N

20 de Enero de 2012, 03:47:34 AM Ultima modificación: 20 de Enero de 2012, 07:09:15 AM por Ò³Ò²Ò³ Dëmon Ò³Ò²Ò³

bueno primero tenemos las imí¡genes de los dispositivos, promedio 200x200 jpg. You are not allowed to view links. Register or Login

Luego tenemos un formulario, llamado frmmain, dentro un combobox, llamado cbodisp, 12 labels, un picturebox llamado Picture1 y un formulario de about llamado frmAboutMe.

Código: php

Private Sub cbodisp_Click()
Select Case cbodisp.Text
Case "Alfa Network AWUS036H"
        Label1.Caption = "Alfa Network AWUS036H"
        Label2.Caption = "RTL8187L"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "BackTrack 3-5, WiFiWay X, Beini X, AirUbuntu X"
        Label6.Caption = "1000mW, Antena 5dBi."
        Picture1.Picture = LoadPicture(".\img\alfa1.jpg")
Case "Alfa Network AWUS036NHA"
        Label1.Caption = "Alfa Network AWUS036NHA"
        Label2.Caption = "Atheros AR9271"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "WifiWay 2.0.3 (superior)"
        Label6.Caption = "Conector RP-SMA, b/g/n, 150 Mbps, algo sorda y con problemas de reinyeccion."
        Picture1.Picture = LoadPicture(".\img\alfanha.jpg")
Case "Kasens GS-5000 v1.0"
        Label1.Caption = "Kasens GS-5000 v1.0"
        Label2.Caption = "RTL8187L"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "BackTrack 3-5, WiFiWay X, Beini X, AirUbuntu X, MAC OS X"
        Label6.Caption = "Problemas con versiones falsas."
        Picture1.Picture = LoadPicture(".\img\kasens12.jpg")
Case "Kasens GS-5000 v2.0"
        Label1.Caption = "Kasens GS-5000 v2.0"
        Label2.Caption = "RTL8187B"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "BackTrack 3-5, WiFiWay X, Beini X, AirUbuntu X, MAC OS X"
        Label6.Caption = "Problemas con versiones falsas."
        Picture1.Picture = LoadPicture(".\img\kasens12.jpg")
Case "TP-Link TL-WN321G v4.1"
        Label1.Caption = "TP-Link TL-WN321G v4.1"
        Label2.Caption = "RT2870"
        Label3.Caption = "SI"
        Label4.Caption = "NO"
        Label5.Caption = "wifiway 2.0.0, 2.0.1, 2.0.2, AirUbuntu B2, Back|Track 4"
        Label6.Caption = "un poco sordo, 100mW, sin antena."
        Picture1.Picture = LoadPicture(".\img\321g.jpg")
Case "TP-Link TL-WN722N v1.8"
        Label1.Caption = "TP-Link TL-WN722N v1.8"
        Label2.Caption = "Atheros AR9271"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "WifiWay 2.0.3 (superior)"
        Label6.Caption = "Conector RP-SMA, B/G/N, Antena 4dBi, QSS."
        Picture1.Picture = LoadPicture(".\img\722n.jpg")
Case "Alfa Network AWUS036NHR"
        Label1.Caption = "Alfa Network AWUS036NHR"
        Label2.Caption = "RTL8188RU"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "WifiWay 3.0 (superior)"
        Label6.Caption = "RP-SMA, Audita bien en distancias medias."
        Picture1.Picture = LoadPicture(".\img\AWUS036NHR.jpg")
Case "TP-Link TL-WN822N"
        Label1.Caption = "TP-Link TL-WN822N"
        Label2.Caption = "Atheros AR9170"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "WifiWay 2.0.3 (superior)"
        Label6.Caption = "Dos Antenas de 3dBi."
        Picture1.Picture = LoadPicture(".\img\822N.jpg")
Case "D-Link DWA-160 rev A2"
        Label1.Caption = "D-Link DWA-160 rev A2"
        Label2.Caption = "Atheros AR9001U AR9170USB"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "WifiWay 2.0.2 (superior)"
        Label6.Caption = "Antena Interna"
        Picture1.Picture = LoadPicture(".\img\DWA-160.jpg")
Case "ZyXEL NWD-270N"
        Label1.Caption = "ZyXEL NWD-270N"
        Label2.Caption = "RT2870/3070"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "WifiWay 2.0.1 (superior)"
        Label6.Caption = "Antena Interna, dual band 2,4 y 5GHz."
        Picture1.Picture = LoadPicture(".\img\NWD-270N.jpg")
Case "ZyXEL NWD-211AN"
        Label1.Caption = "ZyXEL NWD-211AN"
        Label2.Caption = "RT2870/3070"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "WifiWay 2.0.1 (superior)"
        Label6.Caption = "Antena Interna."
        Picture1.Picture = LoadPicture(".\img\NWD-211AN.jpg")
Case "Buffalo WLI-UC-AG300N"
        Label1.Caption = "Buffalo WLI-UC-AG300N"
        Label2.Caption = "RT2870/3070"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "WifiWay 2.0.1 (superior)"
        Label6.Caption = "Antena Interna, Dual Band 2,4GHz y 5GHz."
        Picture1.Picture = LoadPicture(".\img\ag300n.jpg")
Case "Trendnet TEW-429UB C1"
        Label1.Caption = "Trendnet TEW-429UB C1"
        Label2.Caption = "Zydas ZD1211B"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "WifiWay X, WifiSlax X."
        Label6.Caption = "Antena Interna."
        Picture1.Picture = LoadPicture(".\img\TEW-429UB.jpg")
Case "ASUS WL-167G V2"
        Label1.Caption = "ASUS WL-167G V2"
        Label2.Caption = "RT73"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "WifiWay 2.0.2 (superior)"
        Label6.Caption = "Antena Interna."
        Picture1.Picture = LoadPicture(".\img\WL-167.jpg")
Case "Buffalo WLI-UC-GN"
        Label1.Caption = "Buffalo WLI-UC-GN"
        Label2.Caption = "RT2870/3070"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "WifiWay 2.0.1 (superior)"
        Label6.Caption = "Antena Interna."
        Picture1.Picture = LoadPicture(".\img\wli-uc-gn.jpg")
Case "TP-Link TL-WN321G"
        Label1.Caption = "TP-Link TL-WN321G"
        Label2.Caption = "RT73"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "WifiWay 2.0.1 (superior)"
        Label6.Caption = "Antena Interna."
        Picture1.Picture = LoadPicture(".\img\321.jpg")
Case "Edimax EW-7711USN"
        Label1.Caption = "Edimax EW-7711USN"
        Label2.Caption = "RT2870/3070"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "WifiWay 2.0.1 (superior)"
        Label6.Caption = "conector antena externa para intercambiar antenas de mas ganancia."
        Picture1.Picture = LoadPicture(".\img\711USn.jpg")
Case "TechnoStar WS1001"
        Label1.Caption = "TechnoStar WS1001"
        Label2.Caption = "RT2870/3070"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "WifiWay 2.0.1 (superior)"
        Label6.Caption = "antena interna, muy sordo."
        Picture1.Picture = LoadPicture(".\img\WS1001.jpg")
Case "ASUS WL-167G V1"
        Label1.Caption = "ASUS WL-167G V1"
        Label2.Caption = "RT2500/2671"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "WifiWay 2.0.1 (superior)"
        Label6.Caption = "antena interna."
        Picture1.Picture = LoadPicture(".\img\WL-1671.jpg")
Case "FL2016G"
        Label1.Caption = "FL2016G"
        Label2.Caption = "RTL8187L"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "BackTrack 3-5, WiFiWay X, Beini X, AirUbuntu X"
        Label6.Caption = "1000mW, conector antena externa, admite modo promiscuo, posibilidad de utilizar aplicacion alta potencia alfatools."
        Picture1.Picture = LoadPicture(".\img\FL2016G.jpg")
Case "Siemens Gigaset USB Adapter 300"
        Label1.Caption = "Siemens Gigaset USB Adapter 300"
        Label2.Caption = "RT2870/3070"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "WifiWay 2.0.1 (superior)"
        Label6.Caption = "Antena Interna."
        Picture1.Picture = LoadPicture(".\img\Siemens.jpg")
Case "Starbase USB 500mW"
        Label1.Caption = "Starbase USB 500mW"
        Label2.Caption = "RTL8187L"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "BackTrack 3-5, WiFiWay X, Beini X, AirUbuntu X"
        Label6.Caption = "RP-SMA, posibilidad de utilizar aplicacion alfatools driver alta potencia, admite modo promiscuo."
        Picture1.Picture = LoadPicture(".\img\starbase.jpg")
Case "High Power 802.11N PALM WLAN 300mW"
        Label1.Caption = "Starbase USB 500mW"
        Label2.Caption = "RT2770/2720"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "WifiWay 2.0.1 (superior)"
        Label6.Caption = "conector antena externa, excelente chipset ralink 2770."
        Picture1.Picture = LoadPicture(".\img\hp300.jpg")
Case "WifiSky 1000mW"
        Label1.Caption = "WifiSky 1000mW"
        Label2.Caption = "RTL8187L"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "BackTrack 3-5, WiFiWay X, Beini X, AirUbuntu X"
        Label6.Caption = "RP-SMA, gran sensibilidad, admite modo promiscuo, posibilidad de utilizar aplicacion alfatools."
        Picture1.Picture = LoadPicture(".\img\wifisky1.jpg")
Case "IOGEAR GWU523 Wireless-G"
        Label1.Caption = "IOGEAR GWU523 Wireless-G"
        Label2.Caption = "Zydas ZD 1211"
        Label3.Caption = "SI"
        Label4.Caption = "??"
        Label5.Caption = "WifiWay 2.0.1 (superior)"
        Label6.Caption = "Antenia Interna."
        Picture1.Picture = LoadPicture(".\img\IOGEAR.jpg")
Case "Senao Engenius NUB-9701 Wireless-N"
        Label1.Caption = "Senao Engenius NUB-9701"
        Label2.Caption = "RT2870/3070"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "WifiWay 2.0.1 (superior)"
        Label6.Caption = "Antenia Interna."
        Picture1.Picture = LoadPicture(".\img\Senao.jpg")
Case "Senao Engenius NUB-9701 EXT2 Wireless-N"
        Label1.Caption = "Senao Engenius NUB-9701 EXT2"
        Label2.Caption = "RT2870/3070"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "WifiWay 2.0.1 (superior)"
        Label6.Caption = "Dos conectores de antena externa."
        Picture1.Picture = LoadPicture(".\img\Senao2.jpg")
Case "EnGenius EUB-9801"
        Label1.Caption = "EnGenius EUB-9801"
        Label2.Caption = "RT2870/3070"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "WifiWay 2.0.1 (superior)"
        Label6.Caption = "Antena interna, dualband (2,4 y 5GHz)."
        Picture1.Picture = LoadPicture(".\img\Senao2.jpg")
Case "Edimax EW-7316UG"
        Label1.Caption = "Edimax EW-7316UG"
        Label2.Caption = "RTL8187B"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "WifiWay 2.0.1 (superior)"
        Label6.Caption = "Antena interna."
        Picture1.Picture = LoadPicture(".\img\7316Ug.jpg")
Case "ASUS USB-N11"
        Label1.Caption = "ASUS USB-N11"
        Label2.Caption = "RT2870/3070"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "WifiWay 2.0.1 (superior)"
        Label6.Caption = "Antena interna."
        Picture1.Picture = LoadPicture(".\img\USB-N11.jpg")
Case "ASUS USB-N13"
        Label1.Caption = "ASUS USB-N13"
        Label2.Caption = "RT2870/3070"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "WifiWay 2.0.1 (superior)"
        Label6.Caption = "Antena interna."
        Picture1.Picture = LoadPicture(".\img\USB-N13.jpg")
Case "Edimax EW-7717UN"
        Label1.Caption = "Edimax EW-7717UN"
        Label2.Caption = "RT2870/3070"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "WifiWay 2.0.1 (superior)"
        Label6.Caption = "Antena interna."
        Picture1.Picture = LoadPicture(".\img\7717.jpg")
Case "Pheenet WLU-803G"
        Label1.Caption = "Pheenet WLU-803G"
        Label2.Caption = "Zydas ZD1211"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "WifiWay 2.0.1 (superior)"
        Label6.Caption = "Conector Antena Externa."
        Picture1.Picture = LoadPicture(".\img\WLU-803G.jpg")
Case "eRize ERZW54-USB03H1W"
        Label1.Caption = "eRize ERZW54-USB03H1W"
        Label2.Caption = "RT2571WF"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "WifiWay 1.0 (superior)"
        Label6.Caption = "Conector Antena Externa."
        Picture1.Picture = LoadPicture(".\img\USB03H1W.jpg")
Case "Palm plus 700mW"
        Label1.Caption = "Palm plus 700mW"
        Label2.Caption = "RT2870/3070"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "WifiWay 2.0.1 (superior)"
        Label6.Caption = "Conector Antena Externa, dual band (2,4GHz y 5GHz)."
        Picture1.Picture = LoadPicture(".\img\Palmplus.jpg")
Case "eRize ERZW54-USB04RS300"
        Label1.Caption = "eRize ERZW54-USB04RS300"
        Label2.Caption = "RTL8187L"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "BackTrack 3-5, WiFiWay X, Beini X, AirUbuntu X"
        Label6.Caption = "Conector Antena Externa."
        Picture1.Picture = LoadPicture(".\img\USB04RS300.jpg")
Case "WiFly-City 20G 1500mW"
        Label1.Caption = "WiFly-City 20G 1500mW"
        Label2.Caption = "RTL8187L"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "BackTrack 3-5, WiFiWay X, Beini X, AirUbuntu X"
        Label6.Caption = "Conector Antena Externa."
        Picture1.Picture = LoadPicture(".\img\wiflycity20g.jpg")
Case "eRize ERZW54-USB04RS1W-O14"
        Label1.Caption = "eRize ERZW54-USB04RS1W-O14"
        Label2.Caption = "RTL8187L"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "BackTrack 3-5, WiFiWay X, Beini X, AirUbuntu X"
        Label6.Caption = "Conector Antena Externa, Antena 14dBi, 8 metros USB."
        Picture1.Picture = LoadPicture(".\img\USB04RS1W-O14.jpg")
Case "TP-Link TL-WN727N"
        Label1.Caption = "TP-Link TL-WN727N"
        Label2.Caption = "RT2870/3070"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "WifiWay 2.0.1 (superior)"
        Label6.Caption = "Conector Antena Externa."
        Picture1.Picture = LoadPicture(".\img\727n.jpg")
Case "Alfa Network AWUS036NH"
        Label1.Caption = "Alfa Network AWUS036NH"
        Label2.Caption = "RT3070"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "WifiWay 2.0.1 (superior), Beini 1.2.1 (superior)."
        Label6.Caption = "Capaz de conectarse en condiciones muy desfavorables y navegar perfectamente,no se calienta nada."
        Picture1.Picture = LoadPicture(".\img\036NH.jpg")
Case "Belkin Wireless G Plus"
        Label1.Caption = "Belkin Wireless G Plus"
        Label2.Caption = "RT2573-RT73USB"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "WifiWay 2.0.1 (superior)."
        Label6.Caption = "modo promiscuo por probar, antena interna, no tiene conector de antena."
        Picture1.Picture = LoadPicture(".\img\BELKIN.jpg")
Case "SiteCom Wireless 300 N"
        Label1.Caption = "SiteCom Wireless 300 N"
        Label2.Caption = "RT2870/3070"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "WifiWay 2.0.1 (superior)."
        Label6.Caption = "Antena Interna."
        Picture1.Picture = LoadPicture(".\img\SiteCom.jpg")
Case "OvisLink EVO-W300USB"
        Label1.Caption = "OvisLink EVO-W300USB"
        Label2.Caption = "RT2870/3070"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "WifiWay 2.0.1 (superior)."
        Label6.Caption = "Antena Interna."
        Picture1.Picture = LoadPicture(".\img\evo-W300USB.jpg")
Case "Sveon 1020 SNT 'N'"
        Label1.Caption = "Sveon 1020 SNT 'N'"
        Label2.Caption = "RT3072"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "WifiWay 2.0.1 (superior)."
        Label6.Caption = "Muy sensible, este adaptador tiene 2 conectores para intercambiar antenas de mas ganancia."
        Picture1.Picture = LoadPicture(".\img\sveon.jpg")
Case "GOLD USB 800mW"
        Label1.Caption = "GOLD USB 800mW"
        Label2.Caption = "RTL8187L"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "BackTrack 3-5, WiFiWay X, Beini X, AirUbuntu X."
        Label6.Caption = "Buena sensibilidad, valida para auditorias, funciona en todos los WifiWay."
        Picture1.Picture = LoadPicture(".\img\GOLD800.jpg")
Case "SiteCom Wireless 352 v1 001"
        Label1.Caption = "SiteCom Wireless 352 v1 001"
        Label2.Caption = "RT3070"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "WifiWay 2.0.1 (superior)."
        Label6.Caption = "antena interna."
        Picture1.Picture = LoadPicture(".\img\SiteCom352.jpg")
Case "Alfa Network AWUS050NH"
        Label1.Caption = "Alfa Network AWUS050NH"
        Label2.Caption = "RT2770"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "WifiWay 2.0.1 (superior)."
        Label6.Caption = "conector antena externa."
        Picture1.Picture = LoadPicture(".\img\a500.jpg")
Case "NETGEAR WNDA-3100"
        Label1.Caption = "NETGEAR WNDA-3100"
        Label2.Caption = "Atheros AR9001U/AR9170USB"
        Label3.Caption = "SI"
        Label4.Caption = "??"
        Label5.Caption = "WifiWay 2.0.1 (superior)."
        Label6.Caption = "pendiente de prueba de reinyecciín, vale una pasta, admite 2.4 GHZ/ 5 GHz."
        Picture1.Picture = LoadPicture(".\img\WNDA-3100.jpg")
Case "NETGEAR WG111"
        Label1.Caption = "NETGEAR WG111"
        Label2.Caption = "RTL8187B"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "WifiWay 2.0.1 (superior)."
        Label6.Caption = "Antena Interna."
        Picture1.Picture = LoadPicture(".\img\WG111.jpg")
Case "NETGEAR WN111"
        Label1.Caption = "NETGEAR WG111"
        Label2.Caption = "Atheros AR9001U(AR9170USB)"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "WifiWay 2.0.1 (superior)."
        Label6.Caption = "Antena Interna."
        Picture1.Picture = LoadPicture(".\img\WN111.jpg")
Case "D-Link DWA-132"
        Label1.Caption = "D-Link DWA-132"
        Label2.Caption = "Atheros AR5523"
        Label3.Caption = "NO"
        Label4.Caption = "NO"
        Label5.Caption = "WifiWay 2.0.1 (superior)."
        Label6.Caption = "Antena Interna."
        Picture1.Picture = LoadPicture(".\img\DWA-132.jpg")
Case "D-Link DWA-125"
        Label1.Caption = "D-Link DWA-125"
        Label2.Caption = "RT2870/3070"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "WifiWay 2.0.1 (superior)."
        Label6.Caption = "Ojo con estos modelos, son parecidos y las cajas dan lugar a confusion si uno no se fija bien en el modelo, no todos admiten modo monitor."
        Picture1.Picture = LoadPicture(".\img\DWA-125.jpg")
Case "D-Link DWL-G122"
        Label1.Caption = "D-Link DWL-G122"
        Label2.Caption = "RT2870/3070"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "WifiWay 2.0.1 (superior)."
        Label6.Caption = "el adaptador mas barato que encontrí que funciona en modo monitor (9 eroes)."
        Picture1.Picture = LoadPicture(".\img\DWL-G122.jpg")
Case "TP-Link TL-WN422G"
        Label1.Caption = "TP-Link TL-WN422G"
        Label2.Caption = "Zydas ZD1211RW"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "WifiWay 2.0.1 (superior)."
        Label6.Caption = "Admite modo promiscuo."
        Picture1.Picture = LoadPicture(".\img\TL-WN422G.jpg")
Case "SMC Network N"
        Label1.Caption = "SMC Network N"
        Label2.Caption = "RT3070"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "WifiWay 2.0.1 (superior)."
        Label6.Caption = "Este modelo esta saliendo adaptadores nuevos mas pequeíños, no se si calzan el mismo chipset, cuando lo compruebe aíñado un comentario."
        Picture1.Picture = LoadPicture(".\img\SMC.jpg")
Case "eRize ERZW54-USB04RS800"
        Label1.Caption = "eRize ERZW54-USB04RS800"
        Label2.Caption = "RTL8187L"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "WifiWay 2.0.1 (superior)."
        Label6.Caption = "800mW."
        Picture1.Picture = LoadPicture(".\img\USB04RS800.jpg")
Case "eRize ERZ-WL-USBRSMA"
        Label1.Caption = "eRize ERZ-WL-USBRSMA"
        Label2.Caption = "Zydas ZD1211RW"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "WifiWay 2.0.1 (superior)."
        Label6.Caption = "conector para antena externa, admite modo promiscuo."
        Picture1.Picture = LoadPicture(".\img\ERZ-WL-USBRSMA.jpg")
Case "Zaapa Wireless USB Adaptor 11 N"
        Label1.Caption = "Zaapa Wireless USB Adaptor 11 N"
        Label2.Caption = "RT3070"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "WifiWay 2.0.1 (superior)."
        Label6.Caption = "Antena interna."
        Picture1.Picture = LoadPicture(".\img\zaapa.jpg")
Case "Alfa Network AWUS036EH"
        Label1.Caption = "Alfa Network AWUS036EH"
        Label2.Caption = "RTL8187L"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "BackTrack 3-5, WiFiWay X, Beini X, AirUbuntu X."
        Label6.Caption = "admite modo promiscuo, conector de antena RP-SMA, posibilidad de utilizar la aplizacion alta potencia alfatools."
        Picture1.Picture = LoadPicture(".\img\alfa200.jpg")
Case "LinkSys N/ultra"
        Label1.Caption = "LinkSys N/ultra"
        Label2.Caption = "RT3070"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "WifiWay 2.0.1 (superior)."
        Label6.Caption = "Antena Interna."
        Picture1.Picture = LoadPicture(".\img\linksys.jpg")
Case "LinkSys N WUSB 100"
        Label1.Caption = "LinkSys N WUSB 100"
        Label2.Caption = "RT2870/3070"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "WifiWay 2.0.1 (superior)."
        Label6.Caption = "Antena Interna."
        Picture1.Picture = LoadPicture(".\img\linksys1.jpg")
Case "Sveon 1015 SNT 'N'"
        Label1.Caption = "Sveon 1015 SNT 'N'"
        Label2.Caption = "RT3070"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "WifiWay 2.0.1 (superior)."
        Label6.Caption = "RP-SMA."
        Picture1.Picture = LoadPicture(".\img\Sveon1015.jpg")
Case "G-SKY 1000mW"
        Label1.Caption = "G-SKY 1000mW"
        Label2.Caption = "RTL8187L"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "BackTrack 3-5, WiFiWay X, Beini X, AirUbuntu X."
        Label6.Caption = "RP-SMA."
        Picture1.Picture = LoadPicture(".\img\G-SKY.jpg")
Case "TP-Link TL-WN422GC"
        Label1.Caption = "TP-Link TL-WN422GC"
        Label2.Caption = "Atheros AR9271"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "WifiWay 2.0.1 (superior)."
        Label6.Caption = "RP-SMA."
        Picture1.Picture = LoadPicture(".\img\WN422GC.jpg")
Case "TP-Link TL-WN721N"
        Label1.Caption = "TP-Link TL-WN721N"
        Label2.Caption = "Atheros AR9271"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "WifiWay 2.0.1 (superior)."
        Label6.Caption = "Antena Interna."
        Picture1.Picture = LoadPicture(".\img\WN721N.jpg")
Case "WifiStation EXT"
        Label1.Caption = "WifiStation EXT"
        Label2.Caption = "Atheros AR9271"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "WifiWay 2.0.1 (superior)."
        Label6.Caption = "Antena Externa, potencia 1000mW (400mW reales)."
        Picture1.Picture = LoadPicture(".\img\WifiStation.jpg")
Case "Sveon 1010 SNT 'G'"
        Label1.Caption = "Sveon 1010 SNT 'G'"
        Label2.Caption = "RTL8187B"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "WifiWay 2.0.1 (superior)."
        Label6.Caption = "Un poco sordo, se calienta mucho."
        Picture1.Picture = LoadPicture(".\img\1010.jpg")
Case "SiteCom Network adapter usb N300 X4"
        Label1.Caption = "SiteCom Network adapter usb N300 X4"
        Label2.Caption = "RT2870/3070"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "WifiWay 2.0 (superior)."
        Label6.Caption = "El botín OPS (One Push Setup) del router permite crear una conexiín inalí¡mbrica segura sin necesidad de instalar software."
        Picture1.Picture = LoadPicture(".\img\sis300n.jpg")
Case "Belkin Surf N 300"
        Label1.Caption = "Belkin Surf N 300"
        Label2.Caption = "RTL8192cu"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "WifiWay 3.0 (superior)."
        Label6.Caption = "Antena interna."
        Picture1.Picture = LoadPicture(".\img\belkin300.jpg")
Case "Crotalus USB 2000mW 802.11bg"
        Label1.Caption = "CROTA2000MW"
        Label2.Caption = "RTL8187L"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "BackTrack 3-5, WiFiWay X, Beini X, AirUbuntu X."
        Label6.Caption = "Gran cobertura 2000mW, USB 2.0 mini USB."
        Picture1.Picture = LoadPicture(".\img\crotalus2w.jpg")
Case "eRize ERZWN150-USB03H400"
        Label1.Caption = "eRize ERZWN150-USB03H400"
        Label2.Caption = "RTL8188SU"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "WiFiWay 3.0 (superior)"
        Label6.Caption = "400 mW, antena 5dBi."
        Picture1.Picture = LoadPicture(".\img\USB03H400.jpg")
Case "Alfa Network AWUS036NEH"
        Label1.Caption = "Alfa Network AWUS036NEH"
        Label2.Caption = "RT3070"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "WiFiWay 3.0 (superior)"
        Label6.Caption = "150Mbps, 802.11b/g/n, RP-SMA, Adaptador USB Wireless 400mW (afirman) real 1000mW."
        Picture1.Picture = LoadPicture(".\img\AWUS036NEH.jpg")
Case "TP-Link TL-WN7200ND"
        Label1.Caption = "TP-Link TL-WN7200ND"
        Label2.Caption = "RT3070"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "WiFiWay 2.0 (superior)"
        Label6.Caption = "es un adaptador inalí¡mbrico de alta potencia a 150Mbps con potencia de salida de transmisiín de hasta 500mw."
        Picture1.Picture = LoadPicture(".\img\TL-WN7200ND.jpg")
Case "Airlink AWLL3026"
        Label1.Caption = "Airlink AWLL3026"
        Label2.Caption = "Zydas ZD1211"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "WiFiWay 2.0 (superior)"
        Label6.Caption = "0ace:1211, antena interna."
        Picture1.Picture = LoadPicture(".\img\air.jpg")
Case "Digitus DN-7003GS"
        Label1.Caption = "Digitus DN-7003GS"
        Label2.Caption = "RTL8187L"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "BackTrack 3-5, WiFiWay X, Beini X, AirUbuntu X."
        Label6.Caption = "Antena interna."
        Picture1.Picture = LoadPicture(".\img\DN-7003GS.jpg")
Case "ZyXEL G-202"
        Label1.Caption = "ZyXEL G-202"
        Label2.Caption = "Zydas zd1211b"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "WiFiWay 2.0 (superior)"
        Label6.Caption = "Antena interna, esta un poco limitado."
        Picture1.Picture = LoadPicture(".\img\G-202.jpg")
Case "ZyXEL AG-225H"
        Label1.Caption = "ZyXEL AG-225H"
        Label2.Caption = "Zydas zd1211"
        Label3.Caption = "SI"
        Label4.Caption = "SI"
        Label5.Caption = "WiFiWay 2.0.2 (superior)"
        Label6.Caption = "Antena interna, esta un poco limitado."
        Picture1.Picture = LoadPicture(".\img\AG-225H.jpg")
End Select
End Sub

Private Sub Form_Load()
cbodisp.Clear
cbodisp.AddItem "Alfa Network AWUS036EH"
cbodisp.AddItem "Alfa Network AWUS036H"
cbodisp.AddItem "Alfa Network AWUS036NEH"
cbodisp.AddItem "Alfa Network AWUS036NH"
cbodisp.AddItem "Alfa Network AWUS036NHA"
cbodisp.AddItem "Alfa Network AWUS036NHR"
cbodisp.AddItem "Alfa Network AWUS050NH"
cbodisp.AddItem "Airlink AWLL3026"
cbodisp.AddItem "ASUS USB-N11"
cbodisp.AddItem "ASUS USB-N13"
cbodisp.AddItem "ASUS WL-167G V1"
cbodisp.AddItem "ASUS WL-167G V2"
cbodisp.AddItem "Belkin Wireless G Plus"
cbodisp.AddItem "Belkin Surf N 300"
cbodisp.AddItem "Buffalo WLI-UC-AG300N"
cbodisp.AddItem "Buffalo WLI-UC-GN"
cbodisp.AddItem "Crotalus USB 2000mW 802.11bg"
cbodisp.AddItem "Digitus DN-7003GS"
cbodisp.AddItem "D-Link DWA-125"
cbodisp.AddItem "D-Link DWA-132"
cbodisp.AddItem "D-Link DWA-160 rev A2"
cbodisp.AddItem "D-Link DWL-G122"
cbodisp.AddItem "Edimax EW-7316UG"
cbodisp.AddItem "Edimax EW-7711USN"
cbodisp.AddItem "Edimax EW-7717UN"
cbodisp.AddItem "EnGenius EUB-9801"
cbodisp.AddItem "eRize ERZ-WL-USBRSMA"
cbodisp.AddItem "eRize ERZW54-USB03H1W"
cbodisp.AddItem "eRize ERZW54-USB04RS1W-O14"
cbodisp.AddItem "eRize ERZW54-USB04RS300"
cbodisp.AddItem "eRize ERZWN150-USB03H400"
cbodisp.AddItem "eRize ERZW54-USB04RS800"
cbodisp.AddItem "FL2016G"
cbodisp.AddItem "GOLD USB 800mW"
cbodisp.AddItem "G-SKY 1000mW"
cbodisp.AddItem "High Power 802.11N PALM WLAN 300mW"
cbodisp.AddItem "IOGEAR GWU523 Wireless-G"
cbodisp.AddItem "Kasens GS-5000 v1.0"
cbodisp.AddItem "Kasens GS-5000 v2.0"
cbodisp.AddItem "NETGEAR WG111"
cbodisp.AddItem "NETGEAR WN111"
cbodisp.AddItem "NETGEAR WNDA-3100"
cbodisp.AddItem "OvisLink EVO-W300USB"
cbodisp.AddItem "Palm plus 700mW"
cbodisp.AddItem "Pheenet WLU-803G"
cbodisp.AddItem "Senao Engenius NUB-9701 Wireless-N"
cbodisp.AddItem "Senao Engenius NUB-9701 EXT2 Wireless-N"
cbodisp.AddItem "Siemens Gigaset USB Adapter 300"
cbodisp.AddItem "SiteCom Wireless 300 N"
cbodisp.AddItem "SiteCom Network adapter usb N300 X4"
cbodisp.AddItem "SiteCom Wireless 352 v1 001"
cbodisp.AddItem "SMC Network N"
cbodisp.AddItem "Starbase USB 500mW"
cbodisp.AddItem "Sveon 1010 SNT 'G'"
cbodisp.AddItem "Sveon 1015 SNT 'N'"
cbodisp.AddItem "Sveon 1020 SNT 'N'"
cbodisp.AddItem "TechnoStar WS1001"
cbodisp.AddItem "LinkSys N/ultra"
cbodisp.AddItem "LinkSys N WUSB 100"
cbodisp.AddItem "TP-Link TL-WN321G"
cbodisp.AddItem "TP-Link TL-WN321G v4.1"
cbodisp.AddItem "TP-Link TL-WN422G"
cbodisp.AddItem "TP-Link TL-WN422GC"
cbodisp.AddItem "TP-Link TL-WN7200ND"
cbodisp.AddItem "TP-Link TL-WN721N"
cbodisp.AddItem "TP-Link TL-WN722N v1.8"
cbodisp.AddItem "TP-Link TL-WN727N"
cbodisp.AddItem "TP-Link TL-WN822N"
cbodisp.AddItem "Trendnet TEW-429UB C1"
cbodisp.AddItem "WiFly-City 20G 1500mW"
cbodisp.AddItem "WifiSky 1000mW"
cbodisp.AddItem "WifiStation EXT"
cbodisp.AddItem "Zaapa Wireless USB Adaptor 11 N"
cbodisp.AddItem "ZyXEL AG-225H"
cbodisp.AddItem "ZyXEL G-202"
cbodisp.AddItem "ZyXEL NWD-211AN"
cbodisp.AddItem "ZyXEL NWD-270N"
End Sub

Private Sub Label7_Click()
frmAboutMe.Show
End Sub


Como verí¡n un cídigo fuente muy simple.
Imprimir
Ir Arriba Páginas1
Acciones del Usuario