Mensajes

alguien seria tan amable de darme un ejemplo de matriz inversa gauss jordan en vb6
e visto mucho pero muchos no funcionan :S si me dieras un ejemplo estaria muy agradecido

alguien me podria decir como podria cifrar con matrices en vb6 me podrian dar un ejemplo y yo lo termino es que no tengo idea si me dieran un ejemplo se los agradeceria mucho

no entedi nada de lo quisiste decir, explícate con mas detalle

quiero que se vea un poco mas entendible mira yo hago las matricez de 3*3 pero en ningun momento divido y en el programa divide por que divide ? sabes

alguien que si me pudiera decir como hacerlo un poco mas entendible o si me pudiera decir como funciona por favor por que yo al hacer la inversa no necesito dividir y el codigo trai divisiones gracias

Código [Seleccionar] Expandir

Private Sub Command1_Click()

a1 = Val(Text1)
a2 = Val(Text2)
a3 = Val(Text3)
b1 = Val(Text4)
b2 = Val(Text5)
b3 = Val(Text6)
c1 = Val(Text7)
c2 = Val(Text8)
c3 = Val(Text9)
a4 = 1
a5 = 0
a6 = 0
b4 = 0
b5 = 1
b6 = 0
c4 = 0
c5 = 0
c6 = 1
If a1 = 0 Then
MsgBox "ERROR NO TIENE INVERSA"
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
Text9 = ""
Text1.SetFocus
Else
X1 = a1 / a1
X2 = a2 / a1
X3 = a3 / a1
X4 = 1 / a1
X5 = 0
X6 = 0
Y1 = b1 - b1 * X1
Y2 = b2 - b1 * X2
Y3 = b3 - b1 * X3
Y4 = 0 - b1 * X4
Y5 = 1 - b1 * X5
Y6 = 0 - b1 * X6
Z1 = c1 - c1 * X1
Z2 = c2 - c1 * X2
Z3 = c3 - c1 * X3
Z4 = 0 - c1 * X4
Z5 = 0 - c1 * X5
Z6 = 1 - c1 * X6
If X1 = 0 Or Y2 = 0 Or Z3 = 0 Then
MsgBox "ERROR NO TIENE INVERSA"
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
Text9 = ""
Text1.SetFocus
Else
E1 = Y1 / Y2
E2 = Y2 / Y2
E3 = Y3 / Y2
E4 = Y4 / Y2
E5 = Y5 / Y2
E6 = Y6 / Y2
D1 = X1 - X2 * E1
D2 = X2 - X2 * E2
D3 = X3 - X2 * E3
D4 = X4 - X2 * E4
D5 = X5 - X2 * E5
D6 = X6 - X2 * E6
F1 = Z1 - Z2 * E1
F2 = Z2 - Z2 * E2
F3 = Z3 - Z2 * E3
F4 = Z4 - Z2 * E4
F5 = Z5 - Z2 * E5
F6 = Z6 - Z2 * E6
If D1 = 0 Or E2 = 0 Or F3 = 0 Then
MsgBox "ERROR NO TIENE INVERSA"
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
Text9 = ""
Text1.SetFocus
Else
I1 = F1 / F3
I2 = F2 / F3
I3 = F3 / F3
I4 = F4 / F3
I5 = F5 / F3
I6 = F6 / F3
G1 = D1 - D3 * I1
G2 = D2 - D3 * I2
G3 = D3 - D3 * I3
G4 = D4 - D3 * I4
G5 = D5 - D3 * I5
G6 = D6 - D3 * I6
H1 = E1 - E3 * I1
H2 = E2 - E3 * I2
H3 = E3 - E3 * I3
H4 = E4 - E3 * I4
H5 = E5 - E3 * I5
H6 = E6 - E3 * I6
Text10 = CStr(G4)
Text11 = CStr(G5)
Text12 = CStr(G6)
Text13 = CStr(H4)
Text14 = CStr(H5)
Text15 = CStr(H6)
Text16 = CStr(I4)
Text17 = CStr(I5)
Text18 = CStr(I6)
End If
End If
End If


End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
Text9 = ""
Text10 = ""
Text11 = ""
Text12 = ""
Text13 = ""
Text14 = ""
Text15 = ""
Text16 = ""
Text17 = ""
Text18 = ""
Text1.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub


quisiera saber como cambiar el frame de una web para poder escribir en el textarea
es que para poder escribir en los textarea tengo que cambiar el frame y no se como si pudieran darme una idea
utilizo webbrowser
este es el cogido para los input

Código [Seleccionar] Expandir

titulo = Text3.Text

Set HTML = WebBrowser1.Document

    For Each HTMLI In HTML.getElementsByTagName("input")


        If HTMLI.id = "subjecttitle" Then

        HTMLI.Value = titulo

        End If
        Next
       
        Timer1.Enabled = False

en imacros para cambiar el frame es asi

Código [Seleccionar] Expandir

FRAME F=1

Sí que funciona, solo necesitas un listado con servidores proxy válidos y almacenados en un TX con un formato específico:

Código (vb) [Seleccionar] Expandir


Open "proxylist.txt" for Input As #1
While Not EOF(1)
 Line Input #1, Buffer
 Call CargarProxy(Buffer)
Wend
Close #1

Function CargarProxy()
Server = Split(Buffer,":")(0)
Port = Split(Buffer,":")(1)
'A partir de aquí ya tienes el proxy y server almacenados, llama al resto de la función
Sleep(1500) 'Pon un Sleep por si acaso xD Usa la API
End Function


Acabo de escribir el código de cabeza, creo que me he cargado un poco la sintaxis pero la idea sería esa. Saludos

gracias

Quieres hacer un bot para registrar visitas únicas en una misma web?

esa es la idea XD pero no creo que funcione

Código [Seleccionar] Expandir

' =============================================
' Autor : Bruno Capuano
' Fecha : 29-09-2005
' =============================================

dim strProxyServer

' define el proxy y el puerto si es necesario
strProxyServer = "MyProxyServer:80"

' ubicacion en la registry
dim strRegPath
strRegPath = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\"
Set oWshShell = CreateObject("WScript.Shell")

' modifica las entradas en el registro
Call oWshShell.RegWrite(strRegPath & "ProxyEnable", "00000001", "REG_DWORD")
Call oWshShell.RegWrite(strRegPath & "ProxyOverride", "<local>", "REG_SZ")
Call oWshShell.RegWrite(strRegPath & "ProxyServer", strProxyServer, "REG_SZ")
     
' notificacion
Msgbox "Proxy setting enabled. " & VbCrLf & "Server - " & strProxyServer

' destroy   
Set oWshShell = Nothing

ay alguna forma de que este codigo cambie laproxy desde un archivo text

Código [Seleccionar] Expandir

strProxyServer = "MyProxyServer:80"

donde dice myproxyserver:80 van las proxys pero necesito saber como hacer para que reccora cada proxy del archivo text

ejemplo

carga la proxy 192.85.65.4:80
abre pagina
espera tiempo
vuelve al inicio y carga otra proxy desde el archivo text

el archivo text lo tendria asi y quisiera que cargara una por una
156.456.65.54:80
456.465.46.5:65
156.456.65.54:7854

si me pudieran ayudar muchisimas gracias

es posible borrar un string con for
por ejemplo tengo

Código [Seleccionar] Expandir

href="http: // sitio. any. gs"><img
lo que quiero es que desde las letras href asta <img  se borre todo y pueda remplazar por otra cosa
si me pudieran ayudar gracias

por mas que trato de ayarle una forma de hacerlo me confundo alguien podria ayudarme, lo maximo que pude hacer esta abajo si alguien pudiera ayudarme gracias
pudieran ayudarme en este pseudocodigo
capturar el sueldo de 5 empleados de acuerdo ala siguiente categoria
eventual=20$
asalariado=100$
a cada uno descontar 20% de impuesto al final determinar nomina total

quiero saber como podria hacerlo o si me pudieran corregir este

Código [Seleccionar] Expandir

inicio
entero;i,sueldo,nomina,eventual=0,asal...
i=1
mientras(i<=5) hacer
leer sueldo
si (sueldo<=100) entonces
eventual=eventual + sueldo /0.20
imprimir "eventual"
nomina <- eventual
de lo contrario
asalariado=asalariado+sueldo/0.20
imprimir "asalariado"
nomina<-asalariado
i<- i+1
fin del mientras
imprimir nomina
fin

gracias