Buenas!.. el tema es el siguiente... en Ubuntu 10.10 venia usando cuando viajaba mi celular como modem de internet.. lo habia configurado muy facil, con un par de clicks desde el gestor de red, Banda Ancha Movil...

Ahora he instalado Kubuntu 11.04 en mi notebook, y tengo el problema de q esta opcion (la pestaña que dice Banda Ancha Móvil) se encuentra innabilidatada.. y no he podido habilitarla, he googleado mucho, probe con WiCD etc.. y no consigo entrar a esa funcion (para configurarla)...

asi alguno sabe como puedo solucionarlo, o alguna idea de q puede ser... agradeceria su respuesta!

hola.. tengo un problema con un fuerza bruta...

el tema es asi, tengo 6 letras y necesito ver las combinaciones de todas ellas...
pero no se como hacer a q no se repitan... xq asi el codigo es mucho mas lento :S

x ejemplo asdfgh
con este codigo primero aparece aaaaaa en vez de asdfgh y luego cambiarlas de lugar a x ejemplo asdfhg :S

colocar 2 command button, un timmer con intervalo 0
para hacer funcionar el code presionar el segundo command

Dim cont As Byte
Dim Letras As String
Dim Letra() As String
Dim a As Byte, b As Byte, c As Byte, d As Byte, e As Byte, f As Byte
Dim La As String, Lb As String, Lc As String, Ld As String, Le As String, Lf As String
 
Private Sub Command1_Click()
Letras = ""
 
Do While Text1.Text <> ""
Letras = Letras & Left(Text1.Text, 1) & "|"
Text1.Text = Right(Text1.Text, Len(Text1.Text) - 1)
Loop
 
Letra = Split(Letras, "|")
 
For a = 0 To 5
   La = Letra(a)
    For b = 1 To 5
        Lb = Letra(b)
        For c = 2 To 5
            Lc = Letra(c)
            For d = 3 To 5
               Ld = Letra(d)
                For e = 4 To 5
                    Le = Letra(e)
                    For f = 5 To 5
                       Lf = Letra(f)
                        SendKeys La & Lb & Lc & Ld & Le & Lf
                        SendKeys "{Enter}"
                        DoEvents
                    Next f
                Next e
            Next d
        Next c
    Next b
Next a
 
MsgBox "Termino"
 
End Sub
 
Private Sub Command2_Click()
Timer1.Interval = 1000
End Sub
 
Private Sub Timer1_Timer()
If cont = 3 Then
Call Command1_Click
Timer1.Interval = 0
cont = 0
Else
cont = cont + 1
End If
End Sub
 

bueno... este proyecto surgio creo q caudno intentaba acelerar el envio de capturas de pantalla de mi troyano.. y termino en esto xD jaja nada q ver

antes q nada decir q el codigo es 100% mio.. y q si se matan buscando similitudesen internet seguro encuentran algo ya q de ahi aprendo... pero lo hice yo a todo.. ¬¬ (para las malas lenguas)

dejo un link de descarga del Source:
http://rapidshare.com/files/162287705/Simple_Juego.rar.html

bueno les dejo el code:
Un Form con:
un timer = Timer1
un Picture = Picture1
un menu titulo Configuracion = mnu
     sub menu titulo Tamaño = mnu_tam
     sub menu titulo Cantidad de Obstaculos = mnu_obs

en un modulo

'Sencillo Juego Creado Por Vivachapas
'Si estas leyendo este codigo mas vale q lo hayas
'bajado del http://foro.elhacker.net , sino es copiado ¬¬
 
Public NumObs As Long, Ini As Long
Public Direccion As Byte
Public MX As Long, MY As Long
Public PX As Long, PY As Long
Public CS As Byte
Public X As Long, Y As Long
 
Sub Tabla()
Dim i As Long
Gano
Form1.Picture1.Line ((X - 1) * CS, (Y - 1) * CS)-(X * CS, Y * CS), vbRed, BF
Form1.Picture1.Line (PX * CS, PY * CS)-((PX + 1) * CS, (PY + 1) * CS), vbGreen, BF
For i = 0 To X
    Form1.Picture1.Line (i * CS, 0)-(i * CS, Y * CS), vbBlack
Next i
 
For i = 0 To Y
    Form1.Picture1.Line (0, i * CS)-(X * CS, i * CS), vbBlack
Next i
End Sub
 
Function Dentro() As Boolean
Dentro = True
If MX >= X Then
Dentro = False
MX = MX - 1
End If
If MY >= Y Then
Dentro = False
MY = MY - 1
End If
If MX < 0 Then
Dentro = False
MX = MX + 1
End If
If MY < 0 Then
Dentro = False
MY = MY + 1
End If
End Function
 
Sub Mueve()
Form1.Picture1.Line (PX * CS, PY * CS)-((PX + 1) * CS, (PY + 1) * CS), vbWhite, BF
PX = MX
PY = MY
Tabla
End Sub
 
Sub Perdio()
Direccion = 0
MsgBox "Perdio", , "Agus"
NumObs = Ini
Reset
End Sub
 
Sub Reset()
Form1.Picture1.Cls
Direccion = 0
PX = 0
PY = 0
MX = 0
MY = 0
Obstaculos (NumObs)
Titulo
End Sub
 
Sub Gano()
If Form1.Picture1.Point(PX * CS + 1, PY * CS + 1) = vbRed Then
MsgBox "Gano", , "Agus"
NumObs = Int(NumObs * 120 / 100)
Reset
End If
End Sub
 
Sub Obstaculos(ByVal Cantidad As Long)
Randomize
Dim i As Long
Dim OX As Long, OY As Long
For i = 1 To Cantidad
    OX = Int(Rnd * X)
    OY = Int(Rnd * Y)
    Form1.Picture1.Line (OX * CS, OY * CS)-((OX + 1) * CS, (OY + 1) * CS), vbBlue, BF
Next i
Tabla
End Sub
 
Sub Lugar()
If Form1.Picture1.Point(MX * CS + 1, MY * CS + 1) = vbBlue Then Perdio
End Sub
 
Sub Titulo()
Form1.Caption = "Agus - Obstaculos:" & NumObs
End Sub
 

en el Form1

'Sencillo Juego Creado Por Vivachapas
'Si estas leyendo este codigo mas vale q lo hayas
'bajado del http://foro.elhacker.net , sino es copiado ¬¬
 
Private Sub Form_Load()
PX = 0
PY = 0
Direccion = 0
Ini = 20
NumObs = Ini
Titulo
With Picture1
    .Height = 5000
    .Width = 5000
    .AutoRedraw = True
    .BackColor = vbWhite
    .ScaleMode = 3
End With
CS = 20
X = Int(Picture1.ScaleHeight / CS)
Y = Int(Picture1.ScaleWidth / CS)
Picture1.ScaleHeight = X * CS + 1
Picture1.ScaleWidth = Y * CS + 1
Obstaculos (Ini)
Timer1.Interval = CS * 5
End Sub
 
Private Sub mnu_obs_Click()
a = InputBox("Ingrese el numero de obstaculos iniciales", "Agus")
If a = "" Then Exit Sub
If IsNumeric(a) Then
Ini = a
Else
MsgBox "Debe ingresar un numero", vbCritical, "Agus"
End If
NumObs = Ini
Titulo
Reset
End Sub
 
Private Sub mnu_tam_Click()
a = InputBox("Ingrese el tamaño", "Agus")
If a = "" Then Exit Sub
If IsNumeric(a) Then
CS = a
Else
MsgBox "Debe ingresar un numero", vbCritical, "Agus"
End If
Picture1.Cls
X = Int(Picture1.ScaleHeight / CS)
Y = Int(Picture1.ScaleWidth / CS)
Picture1.ScaleHeight = X * CS + 1
Picture1.ScaleWidth = Y * CS + 1
Timer1.Interval = CS * 5
Obstaculos (Ini)
End Sub
 
Private Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer)
Dim Podra As Boolean
Select Case KeyCode
 
Case vbKeyRight
If Direccion = 2 Then
Perdio
Exit Sub
End If
Direccion = 1
 
Case vbKeyLeft
If Direccion = 1 Then
Perdio
Exit Sub
End If
Direccion = 2
 
Case vbKeyUp
If Direccion = 4 Then
Perdio
Exit Sub
End If
Direccion = 3
 
Case vbKeyDown
If Direccion = 3 Then
Perdio
Exit Sub
End If
Direccion = 4
 
End Select
End Sub
 
Private Sub Timer1_Timer()
Dim Podra As Boolean
Select Case Direccion
Case 0
Exit Sub
Case 1
MX = PX + 1
Case 2
MX = PX - 1
Case 3
MY = PY - 1
Case 4
MY = PY + 1
End Select
 
Podra = Dentro
Lugar
If Podra = False Then
Perdio
Exit Sub
End If
 
Mueve
End Sub
 

espero opiniones...

SALUDOS

P/D: Tamaño 5, con 100 Obstaculos es mi favorito...

bueno honestamente yo usaba uno q saque de internet q una sola funcion realizaba las dos tareas (descencriptar y cifrar) pero nunca lo habia entendido...
ahora no se xq se me ocurrio mirarlo, con mas conociminetos y me di cuenta q es xq usa el comando Xor (estuve investigando q es... no es nada jodido..) y pense xq no hacer uno yo xD...
y bueno lo hice , la verdad no se si habra uno parecido (no creo q igual ¬¬) en internet xq ni me fije xD pero a este lo hice yo
lo bueno q le veo a este code es q si cifrar x ejemplo AAAA el resutaldo no van a ser 4 caracteres iguales sino q todos distintos

Private Function cifrar(Cadena As String)
Dim Tam As Long
Dim i As Long
Tam = Len(Cadena)
cifrar = ""
For i = 1 To Tam
    cifrar = cifrar & Chr(Asc(Mid(Cadena, i, 1)) + Tam - i + 10)
Next
End Function
 
Private Function Descencriptar(Cadena As String)
Dim Tam As Long
Dim i As Long
Tam = Len(Cadena)
Descencriptar = ""
For i = 1 To Tam
    Descencriptar = Descencriptar & Chr(Asc(Mid(Cadena, i, 1)) - Tam + i - 10)
Next
End Function

bueno no se xD si les sirve o quieren opinar o conocen algun otro copado

bueno lo pregunto aca... xq no vi en el foro otro q diga batch xD
aparte la preg seguro la saben.. esta relazionada con VB y con los troyanos

bueno lo q quiero hacer es q mi troyano se pueda eliminar si yo le ordeno...
ahora hice un batch q lo borra y luego se borra a si mismo... pero es q cuando el server ejecuta el batch, luego se cierra, antes de cerrarse el batch como q no pudo borrarlo...
en fin quiero saber como hacer algo asi como un timer... donde le de 1 seg a q se cierre el servidor y luego lo borre...

hasta ahora tenia esto:

SALUDOS

mmm bueno esto surgio anoche.. estaba usando la asistencia remota del msn y me dio una idea.. no se si utds la han usado pero donde se ve la pantalla se actualiza solo la parte q cambie... y bue me pase la noche tratando de hacer eso para mi troyano, para asi lograr mayor velocidad cuando se actualiza la img

hice este sencillo code...
se necesita: 2 commandbutton
                  2 picutre box
                  1 combobox

los nombres son los q vienen x defecto...

Dim Presionado As Boolean
Dim Color As ColorConstants
 
Private Sub Combo1_Click()
Select Case Combo1.Text
    Case "Rojo"
    Color = vbRed
    Case "Azul"
    Color = vbBlue
    Case "Verde"
    Color = vbGreen
End Select
End Sub
 
Private Sub Command1_Click()
Dim Cont As Integer
Dim Ancho As Integer
Dim Alto As Integer
Dim PixX As Integer
Dim PixY As Integer
Dim PixColor As Double
Dim oPixColor As Double
Cont = 0
Alto = Picture1.Height
Ancho = Picture1.Width
Picture1.DrawWidth = 1
Picture2.DrawWidth = 1
For PixX = 1 To Ancho Step 10
    For PixY = 1 To Alto Step 10
    PixColor = Picture1.Point(PixX, PixY)
    oPixColor = Picture2.Point(PixX, PixY)
    If Not PixColor = oPixColor Then
    Color = Picture1.Point(PixX, PixY)
    Picture2.PSet (PixX, PixY), Color
    Cont = Cont + 1
    End If
    Next PixY
Next PixX
Picture1.DrawWidth = 3
Picture2.DrawWidth = 3
MsgBox Cont
End Sub
 
Private Sub Command2_Click()
Picture1.Cls
Picture2.Cls
End Sub
 
Private Sub Form_Load()
Picture1.Height = 1500
Picture2.Height = 1500
Picture1.Width = 1500
Picture2.Width = 1500
Picture1.DrawWidth = 3
Picture2.DrawWidth = 3
Picture1.BackColor = vbWhite
Picture2.BackColor = vbWhite
With Combo1
    .AddItem "Rojo"
    .AddItem "Verde"
    .AddItem "Azul"
End With
End Sub
 
 
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Presionado = True
Picture1.CurrentX = X
Picture1.CurrentY = Y
End Sub
 
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Presionado = False Then Exit Sub
Picture1.Line -(X, Y), Color
End Sub
 
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Presionado = False
End Sub
 
Private Sub Picture2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Presionado = True
Picture2.CurrentX = X
Picture2.CurrentY = Y
End Sub
 
Private Sub Picture2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Presionado = False Then Exit Sub
Picture2.Line -(X, Y), Color
End Sub
 
Private Sub Picture2_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Presionado = False
End Sub
 
 

bueno el problema es el siguiente... a ese codigo ya lo probe con los screencapture pero el problema es q si se tapa un picture x otra ventana de otra aplicacion es como si se modificara el picture... no se si me entienden
osea si no se ven las 2 img enteras en la pantalla, los pixeles q no se ve, los toma como distintos... :S

bueno quisiera saber eso como hacer a q no importe si el picture este o no en la pantalla pero q lo compare
o si conocen algun otra forma de hacer esto :S

SALUDOS

:S llevo rato leyendo... honestamente nunca habia trabajado con Inet... vi ya varios post... la mayoria terminan en este ejemplo
http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/209-inet-ftp.htm
seguro alguno ya lo conocia... pero a mi no me soluciona todo en el post xD... me tira error el codigo en esta linea

        Call .Execute(, "Put " & txt_local & " " & txt_Remoto) 

no se si alguno le habra pasado...
o q puede estar mal del code XD

SALUDOS

bueno hacia mucho q no usaba estas funciones... y como un #€#?@ no guarde un proyecto donde lo tenia...
el caso es q estaba tratando de hacer de nuevo un programa para enviar archivos con progressbar en el cliente y en el servidor...
el programa solo tiene eso, lo acabo de hacer para recordar.. y me di cuenta q no lo recuerdo muy bien xD..

Servidor:

Cliente:

al archivo lo envia correctamente, y este llega bien, se guarda y todo... el problema es q primero se va cargando el progressbar del programa q lo envia, cuando este termina comienza a cargar el q lo recibe, y este cada vez lo hace mas lento...
:/ no entiendo xq es... es de noche tengo sueño y tal vez sea eso... pero x favor si alguno me da una mano se lo agradezco...


P/D: EON se q me vas a retar... pero busuqe tu ejemplo y no lo encuentroooo solo encontre la funcion MID para partir el archivo pero no para el progressbar


SALUDOS

hola, he creado un Script para el messenger... es algo sencillo, es lo primero q hago en Script...
el programa funciona bien... pero tengo problemas para validarlo, creo q el problema esta en el .xml
quisiera saber si alguien ha hecho algun Script para el Messenger Plus! y me puede dar una mano...

SALUDOS

disculpen las molestias de este post, xq se q ya se hablo del tema...
pero yo estuve buscando en google y hay bastantes cosas q no me salen ¬¬
queria ver si alguno me tiraba algun link de ejemplos concretos de como usar comandos de la MS-DOS ya q vi uno muy bueno y completo pero q muchas cosas me dicen q la sintaxis la hago mal.
la idea de esto es aplicarlo a VB x eso lo posteo aca
se q es algo con el piper pero nunca logre hacerlo

SALUDOS