Hallo Leute
Ich habe die letzten zwei Jahre von meiner Freundin einen Adventskalender erhalten.
Darin waren so kleinere Sachen wie eine Zeitschrift, USB-Stick, Süssigkeiten, Schokoladen usw.
Wir wissen ja, dass wir Männer mit wenig zufrieden sind 
Was könnte man aber einer Frau schenken?
Ideen und Meinungen sind Willkommen
Sag mal woher bekommst du eigentlich die Aufträge, das könnte ich auch alles machen, wenn mich mal einer fragen würde
DFPWare
Ist eben das,was ich mich auch frage. Finde einfach nichts. Aber mal weiter suchen und abwarten..
Heyho,
Bin noch Schüler (13.) und Programmiere neben bei in AutoIt für paar Firmen und mache Video's (After Effects --> https://autoit.de/www.maxreble.de). Wie viel genau ich da verdiene will ich hier nicht preis geben, aber es ist auf jeden Fall genug
Den ersten Auftrag habe ich hier im AutoIt Forum bekommen, dort hat jemand was in der Jobbörse geschrieben. Die anderen durch z.B. Kontakte durch meinem Vater oder diversen Internetforen. Einfach mal ein wenig googln, gibt genug Leute die verhältnismäßig günstige Programmierer suchenGruß
Spider
13 und du verdienst schon genug geld nebenbei??!! Nicht schlecht.. 
Ich habe aber das gefühl, genau durch googln nichts anständiges zu finden.. 
hallo leute
wir haben hier viele studenten aber sicher auch einige die schon in der berufswelt tätig sind.
ich wollte euch fragen, verdient ihr nebenbei geld? wenn ja wie? homepages? programmierung?
wenn ihr tipps abgeben wollt, hätte ich nichts dagegen... 
grüsse
gianni
Zyxel P-871M
ich glaube langsam es sei die einzige lösung.
habe allerdings keine ahnung, wie ich das dann konfiguerien muss.
habe z.b gelesen, dass der router VLAN 7 fähig sein sollte 
klar doch, sorry 
ich müsste für den hautpsitz mind. 8 vpn tunnels aufbauen können.
vigor 2750 kann nur 2
hallo leute
wir werden neu auf vdsl wechseln (schweiz) und müssen somit neue router kaufen. wir haben es im moment so, dass in unseren filialen einen draytek router (vigor2750) steht und diese mit einem weiteren draytek router (vigor2820) in unserem hauptsitz über vpn verbunden sind.
wir würden gerne weiterhin über die vpn-routern eine vpn-verbindung aufbauen. deshalb sind wir auf der suche nach vpn-routern die das problem lösen können (hersteller egal).
würde mich sehr auf hilfe freuen.
vielen dank.
grüsse
gianni
wobei ich manche leute natürlich auch verstehen kann, die jetzt sagen, ich hab 2 Jahre dran gesessen, ich will nicht, das es jetzt jemand nimmt, und ohne quellenangabe im "bösen autoit" forum veröffentlicht oder sonst wo.....
Sorry, aber wer sagt dass sie die scripte hier posten müssen??
Wenn man sowieso keine verbesserungsvorschläge will und man den andern leute
den quellcode nicht zeigen will, kann ja die exe bei einem download portal veröffentlicht werden!
Ich finde autoit.de ist ein support forum.
Hier wird geholfen und neulinge (nicht nur ) werden beraten.
Man tauscht meinungen was verbessert werden kann und sucht gemeinsam lösungen.
Download portale gibt es schon genug.
warum nicht so??
[autoit]
#include <file.au3>
$sFile = @ScriptDir & "\Test.txt" ; das ist die neue Datei in die geschrieben wird!
[/autoit][autoit][/autoit][autoit]Dim $aRecords
If Not _FileReadToArray("test.txt",$aRecords) Then
MsgBox(4096,"Error", " Error reading log to Array error:" & @error)
Exit
EndIf
For $x = 1 To $aRecords[0] ; zeilenweise Loop
if $x = "3" then ; Wenn die 3. Zeile erreicht ist...
FileWriteLine($sFile, $aRecords[$x])
endif
if $x = "5" then ; Wenn die 5. Zeile erreicht ist...
FileWriteLine($sFile, $aRecords[$x])
endif
Next
Hallo leute
Kam auf die idee, da ich mir ein LG Optimus Speed bestellt habe, ein Forum zu eröffnen.
Hatte vor langer zeit mal ein forum als co-admin, aber es hat sich in der zwischenzeit so viel geändert, dass ich nicht ganz klar komme.
Deshalb suche ich hilfe oder tipps. Vielleicht ist jemand unter den User, dass sich auch ein LGOS bestellt hat und mir helfen würde.
Forum:
https://autoit.de/www.optimus-speed.ch
Meldet euch für weitere Infos per PN
grüsse
ich habe android seit der ver 1.6 und besitze zwei android tablets + das nexus one.
schreibe auch gerade mit meinem tablet, wenn du also mal sagen wrdest was du damit machen musst, kann ich dir sagen ob du dir eins kaufen sollst.
ah, meine tablets sind von archos (5, 101) und ich habe mal gelesen das man auf manche, ubuntu als zweit os installieren kann.
Kann dein Router nicht gescheit DNS
mit der dll funktioniert es ja..
ja kenne ich auch, aber das funktionierte in meinem netzwerk nicht!
hallo leute
da ich als admin ab und zu mal mein netzwerk nach ip's suchen muss, hab ich mir dieses skript geschrieben (danke an "Cyberdyne" für die hilfe)
dafür hab ich mir eine DLL in VB geschrieben, die die hostnamen der computer herausliest.
Skript:
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=ico\ping.ico
#AutoIt3Wrapper_outfile=pingMyLan.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <iNet.au3>
#include <GuiIPAddress.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <GuiStatusBar.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ListViewConstants.au3>
#Include <GuiListView.au3>
$dll = DllOpen("getHostname.dll")
If FileFindFirstFile("getHostname.dll") = -1 Then
MsgBox(16, "Fehler", "getHostname.dll wurde nicht gefunden!")
Exit
EndIf
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.6.0
Author: Gianni
Script Function:
Pingt IP's im LAN
#ce ----------------------------------------------------------------------------
; Script Start - Add your code below here
#Region ### START Koda GUI section ### Form=d:\programmierung\autoit\pingmylan\form\form.kxf
Global $ipSearchStarted = 0
Global $pingIP = "0.0.0.0"
Global $pingBis = 0
Opt("GUIOnEventMode", 1)
$form = GUICreate("pingMyLAN", 267, 273, 192, 124)
$inpIP = _GUICtrlIpAddress_Create($form, 96, 16, 100, 21)
_GUICtrlIpAddress_Set($inpIP, "192.168.0.1")
$labelIP = GUICtrlCreateLabel("IP-Adresse:", 16, 16, 75, 20)
GUICtrlSetFont(-1, 10, 800, 0, "Arial")
$labelBis = GUICtrlCreateLabel("-", 202, 8, 12, 33)
GUICtrlSetFont(-1, 18, 800, 0, "Arial")
$inpBis = GUICtrlCreateInput("255", 216, 16, 33, 21)
$statusBar = _GUICtrlStatusBar_Create($form)
_GUICtrlStatusBar_SetText ($statusBar, "Stop")
$ListView1 = GUICtrlCreateListView("IP | Hostname", 8, 88, 250, 150)
_GUICtrlListView_SetColumnWidth ($ListView1, 0, 100)
_GUICtrlListView_SetColumnWidth ($ListView1, 1, 135)
$btnStart = GUICtrlCreateButton("Start", 120, 48, 59, 25, $WS_GROUP)
$btnStop = GUICtrlCreateButton("Stop", 192, 48, 59, 25, $WS_GROUP)
$btnLoeschen = GUICtrlCreateButton("Liste löschen", 8, 70, 75, 17, $WS_GROUP)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")
GUICtrlSetOnEvent($btnStart, "StartButton")
GUICtrlSetOnEvent($btnStop, "StopButton")
GUICtrlSetOnEvent($btnLoeschen, "_deleteList")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
Sleep(1000)
If $ipSearchStarted Then
_pingIP($pingIP, $pingBis)
$ipSearchStarted = 0
_GUICtrlStatusBar_SetText ($statusBar, "Stop")
EndIf
WEnd
DllClose($dll)
Func StartButton()
If $ipSearchStarted Then return 0
$IPSearchStarted = 1
$pingIP = _GUICtrlIpAddress_Get($inpIP)
$pingBis = GUICtrlRead($inpBis)
EndFunc
Func StopButton()
If NOT $ipSearchStarted Then return 0
$IPSearchStarted = 0
EndFunc
Func CLOSEClicked()
If $ipSearchStarted Then
$a = MsgBox(1, "Ping Suche noch aktiv!", "Soll die Ping Suche abgebrochen werden?")
If NOT ($a = 1) Then Return
EndIf
Exit
EndFunc
Func _deleteList()
_GUICtrlListView_DeleteAllItems($ListView1)
EndFunc
Func _pingIP($ip, $ipBis)
$splitIP = StringSplit($ip, ".")
For $i = $splitIP[4] To $ipBis
If Not $ipSearchStarted Then ExitLoop
$ip = String($splitIP[1] & "." & $splitIP[2] & "." & $splitIP[3] & "." & $i)
_GUICtrlStatusBar_SetText ($statusBar, "Ping: " & $ip)
$ping = Ping($ip, 250)
If $ping > 0 Then
$hostname = DllCall($dll, "str", "getHostname", "str", $ip)
If Not @error Then $host = $hostname[0]
If $host <> "192" Then
$item1 = GUICtrlCreateListViewItem($ip & "|" & $host, $ListView1)
Else
$item1 = GUICtrlCreateListViewItem($ip & "|" & "NoName", $ListView1)
EndIf
EndIf
Next
EndFunc
getHostname.dll
Public Class HostNameDLL
Public Shared Function getHostname(ByVal ipAdress As String) As String
Dim myHost As String
Dim host As Array
myHost = System.Net.Dns.GetHostEntry(ipAdress).HostName
host = myHost.Split(".")
Return host(0).ToString()
End Function
End Class
Grüsse
Gianni
@Cyberdyne
vielen dank, funktioniert perfekt!
hallo liebe community
als sys-admin, brauche ich ab und zu einen ip scanner, der mir mitteilt welche ip's erreichbar sind.
ich hab da mal was programmiert, habe allerdings keine ahnung, wie ich den ping-prozess abbrechen soll.
kann mir jemand dabei helfen?
#include <iNet.au3>
#include <GuiIPAddress.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <GuiStatusBar.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ListViewConstants.au3>
#Include <GuiListView.au3>
#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]AutoIt Version: 3.3.6.0
Author: Gianni
Script Function:
Pingt IP's im LAN
#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]; Script Start - Add your code below here
[/autoit] [autoit][/autoit] [autoit]#Region ### START Koda GUI section ### Form=d:\programmierung\autoit\pingmylan\form\form.kxf
$form = GUICreate("pingMyLAN", 267, 273, 192, 124)
$inpIP = _GUICtrlIpAddress_Create($form, 96, 16, 100, 21)
_GUICtrlIpAddress_Set($inpIP, "192.168.0.1")
$labelIP = GUICtrlCreateLabel("IP-Adresse:", 16, 16, 75, 20)
GUICtrlSetFont(-1, 10, 800, 0, "Arial")
$labelBis = GUICtrlCreateLabel("-", 202, 8, 12, 33)
GUICtrlSetFont(-1, 18, 800, 0, "Arial")
$inpBis = GUICtrlCreateInput("255", 216, 16, 33, 21)
$statusBar = _GUICtrlStatusBar_Create($form)
_GUICtrlStatusBar_SetText ($statusBar, "Stop")
$ListView1 = GUICtrlCreateListView("IP | Hostname", 8, 88, 250, 150)
_GUICtrlListView_SetColumnWidth ($ListView1, 0, 100)
_GUICtrlListView_SetColumnWidth ($ListView1, 1, 135)
$btnStart = GUICtrlCreateButton("Start", 120, 48, 59, 25, $WS_GROUP)
$btnStop = GUICtrlCreateButton("Stop", 192, 48, 59, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $btnStart
$pingIP = _GUICtrlIpAddress_Get($inpIP)
$pingBis = GUICtrlRead($inpBis)
_pingIP($pingIP, $pingBis)
EndSwitch
WEnd
Func _pingIP($ip, $ipBis)
$splitIP = StringSplit($ip, ".")
For $i = $splitIP[4] To $ipBis
$ip = String($splitIP[1] & "." & $splitIP[2] & "." & $splitIP[3] & "." & $i)
_GUICtrlStatusBar_SetText ($statusBar, "Ping: " & $ip)
$ping = Ping($ip, 1000)
If $ping > 0 Then
$host = _TCPIpToName($ip)
$item1 = GUICtrlCreateListViewItem($ip & "|" & $host, $ListView1)
EndIf
Next
EndFunc
ps: ich weiss, es wurde schon so etwas programmiert, allerdings möchte ich mein eigenes gebrauchen und noch für weitere interne sachen erweitern.
vielen dank für die hilfe
sorry leute, bin heute wirklich nicht bei der sache...
hab das problem gefunden:
If $firstFile = -1 Then
MsgBox(0, "Fehler", "Keine Dateien gefunden")
Exit
EndIf
das "Exit" muss natürlich entfernt werden.
vielen dank für die hilfe.
muss den thread trotzdem nochmal öffnen..
kann mir jemand sagen, warum dass wenn das programm die dateien nicht unbenennen kann, abstürzt?
ich möchte, dass das programm nicht beendet wird.
#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Res_Fileversion=0.1.0.5
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <File.au3>
#include <Array.au3>
#include <GDIPlus.au3>
#include <WindowsConstants.au3>
#include <GuiConstantsEx.au3>
#include <GuiMenu.au3>
#include <ButtonConstants.au3>
#include <GuiComboBox.au3>
#include <StaticConstants.au3>
#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]AutoIt Version: 3.3.6.1
Author: Gianni
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
HotKeySet("{ESC}", "_exit")
Dim $szDrive, $szDir, $szFName, $szExt
Global Const $AC_SRC_ALPHA = 1
; Script Start - Add your code below here
[/autoit] [autoit][/autoit] [autoit];------------------------------- extRename ---------------------------------------------
_GDIPlus_Startup()
$pngSrc = @ScriptDir & "\gui\gui.png"
$hImage = _GDIPlus_ImageLoadFromFile($pngSrc)
$width = _GDIPlus_ImageGetWidth($hImage)
$height = _GDIPlus_ImageGetHeight($hImage)
$GUI = GUICreate("extRenamer", $width, $height, -1, -1, BitOR($WS_POPUP, $WS_SYSMENU), $WS_EX_LAYERED)
[/autoit] [autoit][/autoit] [autoit]SetBitmap($GUI, $hImage, 0)
GUIRegisterMsg($WM_NCHITTEST, "WM_NCHITTEST")
GUISetState()
For $i = 0 To 255 Step 40
Sleep(5)
SetBitmap($GUI, $hImage, $i)
Next
SetBitmap($GUI, $hImage, 255)
$WinPos = WinGetPos($GUI)
[/autoit] [autoit][/autoit] [autoit]$_X = GUICreate("", $width, $height, 0, 0, $WS_POPUP, BitOR($WS_EX_MDICHILD, $WS_EX_TOOLWINDOW, $WS_EX_LAYERED), $GUI)
GUISetBkColor(0xFFFFFF)
GUICtrlCreatePic(@ScriptDir & "\gui\grey.gif", 0, 0, $width, $height)
GUICtrlSetState(-1, $GUI_DISABLE)
$labelBeschreibung = GUICtrlCreateLabel("Bitte die Dateiendungen ohne Punkt ('.') angeben (z.B. zip, exe oder jpg)", 40, 40, 310, 35)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$btnDurchsuchen = GUICtrlCreateButton("Durchsuchen..", 260, 90, 91, 25, $BS_FLAT)
GUICtrlSetFont(-1, 9, 800, 0, "MS Sans Serif")
$inputDirectory = GUICtrlCreateInput("", 40, 90, 201, 21)
$ext = GUICtrlCreateInput("", 40, 130, 201, 21)
$labelInputOldExt = GUICtrlCreateLabel("alte Dateiendung", 260, 130, 90, 17)
GUICtrlSetFont(-1, 8, 500, 0, "MS Sans Serif")
$newExt = GUICtrlCreateInput("", 40, 170, 201, 21)
$labelInputNewExt = GUICtrlCreateLabel("neue Dateiendung", 260, 170, 90, 17)
GUICtrlSetFont(-1, 8, 500, 0, "MS Sans Serif")
$btnOK = GUICtrlCreateButton("OK", 40, 210, 70, 25, $BS_FLAT)
GUICtrlSetFont(-1, 9, 800, 0, "MS Sans Serif")
$btnAbbrechen = GUICtrlCreateButton("Abbrechen", 170, 210, 70, 25, $BS_FLAT)
GUICtrlSetFont(-1, 9, 800, 0, "MS Sans Serif")
GUISetState()
[/autoit] [autoit][/autoit] [autoit]While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $btnDurchsuchen
$fileFolder = FileSelectFolder("Ordner angeben", "C:\", 5)
GUICtrlSetData($inputDirectory, $fileFolder)
Case $btnOK
$readDirectory = GUICtrlRead($inputDirectory)
$readExt = GUICtrlRead($ext)
$readNewExt = GUICtrlRead($newExt)
If $readDirectory <> "" Then
If StringRight($readDirectory, 1) = "\" Then $readDirectory = StringTrimRight($readDirectory, 1)
Else
MsgBox(48, "Ordner", "Bitte einen Ordner angeben!")
ContinueLoop
EndIf
If $readExt <> "" And $readNewExt <> "" Then
If StringLen($readExt) == 3 And StringLen($readNewExt) == 3 Then
$extRename = _extRename($readDirectory, $readExt, $readNewExt)
Else
MsgBox(48, "Dateiendung", "Bitte die Dateiendungen korrekt eingeben!")
EndIf
EndIf
Case $btnAbbrechen
Exit
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
For $i = 200 To 0 Step -40
SetBitmap($GUI, $hImage, $i)
Next
_WinAPI_DeleteObject($hImage)
_GDIPlus_Shutdown()
;------------------------------- Functions ---------------------------------------------
Func _extRename($folder, $extension, $newExtension)
$firstFile = FileFindFirstFile($folder & "\*." & $extension)
If $firstFile = -1 Then
MsgBox(0, "Fehler", "Keine Dateien gefunden")
Exit
EndIf
While 1
$file = FileFindNextFile($firstFile)
If @error Then ExitLoop
$fileExt = StringRight($firstFile, 3)
$fileExt = $newExtension
$fileSplit = _PathSplit($file, $szDrive, $szDir, $szFName, $szExt)
$fileMove = $szDrive & $szDir & $szFName & "." & $newExtension
$success = FileMove($folder & "\" & $file, $folder & "\" & $fileMove)
WEnd
If $success = 1 Then
MsgBox(64, "Erfolgreich", "Datei(en) erfolgreich unbenannt!")
Else
MsgBox(64, "Fehler", "Datei(en) konnten nicht unbenannt werden!")
EndIf
EndFunc ;==>_extRename
Func WM_NCHITTEST($hWnd, $iMsg, $iwParam, $ilParam)
If ($hWnd = $GUI) And ($iMsg = $WM_NCHITTEST) Then Return $HTCAPTION
EndFunc ;==>WM_NCHITTEST
Func SetBitmap($hGUI, $hImage, $iOpacity)
Local $hScrDC, $hMemDC, $hBitmap, $hOld, $pSize, $tSize, $pSource, $tSource, $pBlend, $tBlend
$hScrDC = _WinAPI_GetDC(0)
$hMemDC = _WinAPI_CreateCompatibleDC($hScrDC)
$hBitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImage)
$hOld = _WinAPI_SelectObject($hMemDC, $hBitmap)
$tSize = DllStructCreate($tagSIZE)
$pSize = DllStructGetPtr($tSize)
DllStructSetData($tSize, "X", _GDIPlus_ImageGetWidth($hImage))
DllStructSetData($tSize, "Y", _GDIPlus_ImageGetHeight($hImage))
$tSource = DllStructCreate($tagPOINT)
$pSource = DllStructGetPtr($tSource)
$tBlend = DllStructCreate($tagBLENDFUNCTION)
$pBlend = DllStructGetPtr($tBlend)
DllStructSetData($tBlend, "Alpha", $iOpacity)
DllStructSetData($tBlend, "Format", $AC_SRC_ALPHA)
_WinAPI_UpdateLayeredWindow($hGUI, $hScrDC, 0, $pSize, $hMemDC, $pSource, 0, $pBlend, $ULW_ALPHA)
_WinAPI_ReleaseDC(0, $hScrDC)
_WinAPI_SelectObject($hMemDC, $hOld)
_WinAPI_DeleteObject($hBitmap)
_WinAPI_DeleteDC($hMemDC)
EndFunc ;==>SetBitmap
Func _exit()
Exit
EndFunc ;==>_exit
yeah!
wirklich vielen vielen dank! 
kann mir niemand helfen?
