Mensajes

Estoy trabajando en una Herramienta de Administracion remota llamada SoftControl y eso es para el builder, espero publicarlo de aqui a dos o tres semanas.

P.D: ya e econtrado un codigo para canviar el icono gracias a todos.


Salu2, WarGhost

me refiero a del escritorio.

gracias.


Salu2, WarGhost

He buscado por todos los lados y no encuentro nada necesito canviar en icono de un fichero y no tengo ni idea de como hacerlo ,haber si alguien me puede ayudar.

Salu2, WarGhost

y existe un RichTextBox1 que se pueda poner al estilo xp¿?



Salu2, WarGhost

Código [Seleccionar] Expandir

Private intMax As Long

Private Sub Form_Load()
   intMax = 0
   sckServer(0).LocalPort = 1001
   sckServer(0).Listen
End Sub

Private Sub sckServer_ConnectionRequest _
(Index As Integer, ByVal requestID As Long)
   If Index = 0 Then
      intMax = intMax + 1
      Load sckServer(intMax)
      sckServer(intMax).LocalPort = 0
      sckServer(intMax).Accept requestID
      Load txtData(intMax)
   End If
End Sub


asi de facil.

pero si quieres hacer herramientas de administracion remota con conexion inversa es muy dificil.
Salu2, WarGhost

para una pregunta tonta pero se puede hacer en visual basic que en un textbox tenga colores diferentes tipo esto

Error el puerto esta siendo utlizado

eso en un solo textbox.


Salu2, WarGhost

sorry si me e explicado mal lo que yo queria decir esque si se pued hacer una multiconexion inversa con visual basic utilizados solo dos puertos predefinidos.



Salu2, WarGhost

Buenas estoy haciendo una aplicacion que lo que hace es poder conectarnos a varias victimas ala vez con conexion inversa.

pero claro para hacer esto utilizo, por ejemplo el puerto 3541 + index del winsock pero lo que pasa esque claro cuando tienes un router ,hay esta el problema que como no saves que puerto se abrira no se puden quitar el firewall del router.


aber si alguien me puede ayudar


Salu2, WarGhost

Bueno no te entiendo muy bien pero si te refieres a la carpeta donde esta ejecutado el programa seria asi

Código [Seleccionar] Expandir

App.Path

pero esque no te entiendo muy bien.


Salu2, WarGhost

[Modulo:]

aver si alguien me puede ayudar, comento:

Estoy haciendo un troyano y lo quiero hacerlo multilenguaje pero hacelo con archivos ini tipo prorat asi se pueden hacer mas idiomas con el archivo ya compilado pero lo que pasa esque yo utilizado esto ejemplo:

Modulo:

Código [Seleccionar] Expandir

Option Explicit
Private Declare Function GetPrivateProfileString Lib "Kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "Kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

Public Function LeerIni(lpFileName As String, lpAppName As String, lpKeyName As String, Optional vDefault) As String
    Dim lpString As String
    Dim LTmp As Long
    Dim sRetVal As String

    If IsMissing(vDefault) Then
        lpString = ""
    Else
        lpString = vDefault
    End If

    sRetVal = String$(255, 0)

    LTmp = GetPrivateProfileString(lpAppName, lpKeyName, lpString, sRetVal, Len(sRetVal), lpFileName)
    If LTmp = 0 Then
        LeerIni = lpString
    Else
        LeerIni = Left(sRetVal, LTmp)
    End If
End Function

Sub GuardarIni(lpFileName As String, lpAppName As String, lpKeyName As String, lpString As String)
    Dim LTmp As Long

    LTmp = WritePrivateProfileString(lpAppName, lpKeyName, lpString, lpFileName)
End Sub

Codigo sacado de elguille


y en el form:

Código [Seleccionar] Expandir

dim variable
varible1 = LeerIni("C:\español.ini", "Español","Boton1" )

command1.caption = varible1


pero el proble esque si tengo por ejemplo 100 botones hay que definir 100 variable y para un programa grande es un coñazo.


¿Hay alguna forma de no tener que definir tantas variables?

;d salu2