- Amazfit Active 2 NFC - jó kör
- Csak semmi szimmetria: flegma dizájnnal készül a Nothing Phone (3)
- Magisk
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Xiaomi 15 - kicsi telefon nagy energiával
- iPhone topik
- Fotók, videók mobillal
- Vivo X200 Pro - a kétszázát!
- Xiaomi 15 Ultra - kamera, telefon
- Sony Xperia Z2 - esszencia
Új hozzászólás Aktív témák
-
Gabás
addikt
válasz
Sk8erPeter #1351 üzenetére
á, ne törd magad, íme egy egyszerű vbs script, txt-be ment, a célnak megfelel:
uh, egy kicsit összefolyt, ha nem tudod kibogozni, szólj, feltöltöm külön
' Define global variables
Dim oFSO, chat_file, folder_to_save
' Directory where You want to save history (you can modify it)
' Now it is relative, so it will be created where Your *.vbs script runs
folder_to_save = "SkypeChatHistory"
line_count = 0
' Create FSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
set_next_free_dir()
' Connect to Skype API via COM
Set oSkype = WScript.CreateObject("Skype4COM.Skype", "Skype_")
' Open skype, if it is not running
If Not oSkype.Client.IsRunning Then
oSkype.Client.Start()
End If
WScript.Echo "Skype history will be saved. Found " & oSkype.Chats.Count & " chat
group."
' Iterate chats
For Each oChat In oSkype.Chats
names = ""
' First name is You, so it is unnecessary to keep
no_1st_flag = TRUE
For Each oUser In oChat.Members
If no_1st_flag Then
no_1st_flag = FALSE
Else
names = names & "_" & oUser.FullName
End If
Next
get_file("chat" & names & ".txt")
chat_file.WriteLine(vbNewLine & "==== CHAT HYSTORY (" & Replace(names, "_", "")
& ") ====" & vbNewLine)
line_count = line_count + oChat.Messages.Count
For Each oMsg In oChat.Messages
' Fix by Vadim Kravchenko
On Error Resume Next
chat_file.WriteLine(oMsg.FromDisplayName & " (" & oMsg.Timestamp & "): " &
oMsg.Body)
Next
chat_file.Close
Next
WScript.Echo "Backup was finished (" & line_count & " line saved). You can find
your chats in: ./" & folder_to_save
' Garbage collection
SET chat_file = NOTHING
SET folder_to_save = NOTHING
SET oFSO = NOTHING
SET oSkype = NOTHING
' Access to a file given by name
Sub get_file(file_name)
' Parameter fix by: rommeech
Set chat_file = oFSO.OpenTextFile(folder_to_save & "/" & file_name, 8, True, -1)
End Sub
' Find an appropriate directory the logs to save, however, to avoid collision
with former dirs
Sub set_next_free_dir()
If oFSO.FolderExists(folder_to_save) Then
ext = 1
While oFSO.FolderExists(folder_to_save & "_" & ext) And ext < 100
ext = ext + 1
Wend
folder_to_save = folder_to_save & "_" & ext
End If
oFSO.CreateFolder(folder_to_save)
End Sub -
Gabás
addikt
válasz
Sk8erPeter #1349 üzenetére
hát rendes html fájl volt, amikor én használtam, de rég volt
ha mented azt a könyvtárat, akkor elég, viszont a kompatibilitási problémákat nem tudom, de kicsit gyanús, hogy ez a kapcsoló már nem működik. -
Gabás
addikt
válasz
Sk8erPeter #1347 üzenetére
a beszélgetések nem vesznek el. A biztonság kedvéért másolatot készíthesz a (win7 esetében) c:\Users\felhasználónév\AppData\Roaming\Skype mappáról.
-
Gabás
addikt
válasz
Sk8erPeter #1345 üzenetére
azt hiszem, a legújabb verzióban nem működik, esetleg próbálj visszatérni egy régebbire
alternatíva: fizetős app (ingyenes trial esetleg, ha csak egyszer köll)
-
Sk8erPeter
nagyúr
válasz
Sk8erPeter #1344 üzenetére
Ja igen, és van valaki, akinél a chatablakba beírandó
/htmlhistory
parancs csinál valamit?https://support.skype.com/faq/FA10042/What-are-chat-commands-and-roles:
/htmlhistory An HTML file of the chat history opens up in a browser window.
Hát nekem nem nyílik meg a böngészőben, egyszerűen semmit nem reagál, pedig még végső megoldásként azt is megpróbáltam, hogy az IE-t teszem defaultra (fú, de rossz érzés volt
), hátha az a baja, de nem.
-
válasz
Sk8erPeter #972 üzenetére
Ha tudja valaki a jelszóm már rám is tud írni? Mindegy, megváltoztattam
-
Lamellus
tag
válasz
Sk8erPeter #942 üzenetére
Értem már, tehát néha kihúzod a kamerát és azért látja utána a tunert, hiába nem az volt beállítva. Akkor erre lehet tényleg nincs igazi megoldás, hogy a kecske is jól lakjon és a káposzta is megmaradjon.
-
Lamellus
tag
válasz
Sk8erPeter #940 üzenetére
Kicsit keresgéltem, egy ilyet találtam még.
-
Lamellus
tag
válasz
Sk8erPeter #938 üzenetére
Igen, erre gondoltam, hogy utána meg visszakapcsolod. Elfelejti a beállításokat vagy mire gondolsz macera alatt?
Szerk: kvázi-tag lettem 2013 napos regisztrációval, igazi hozzászólás hajhász vagyok nem?
-
Lamellus
tag
válasz
Sk8erPeter #936 üzenetére
Próbáltad már úgy hogy előtte eszközkezelőben letiltod a kártyát? Hátha úgy be tudod állítani utána. Ez csak tipp, nekem nincs két eszközöm, hogy kipróbáljam.
-
Miv
tag
válasz
Sk8erPeter #926 üzenetére
Úgy emlékszem alapból mindenkitől fogadhat.
Egyébként: Options / Privancy settings / Allow IMs form: anyone vagy people in my contact list only. -
csferke
senior tag
válasz
Sk8erPeter #926 üzenetére
Skype / Beállítások / Adatvédelmi beállítások
-
Miv
tag
válasz
Sk8erPeter #924 üzenetére
Javítalak.
Lehet (ha be van nála állítva, hogy mindenkitől fogad üzenetet).
-
Napster01
tag
válasz
Sk8erPeter #889 üzenetére
Nem lehet exportálni tudtommal, de itt talán az összes megtalálható.
sonykor: Azok a képek vistán itt vannak eltárolva: C:\Users\fiókneved\AppData\Roaming\Skype\Pictures
-
Sk8erPeter
nagyúr
válasz
Sk8erPeter #887 üzenetére
Valaki tud ilyenről?
Új hozzászólás Aktív témák
Hirdetés
- AMD Ryzen 9 / 7 / 5 / 3 5***(X) "Zen 3" (AM4)
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Amazfit Active 2 NFC - jó kör
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- A OnePlus ellen biztonsági aggályok miatt indítanának vizsgálatot az USA-ban
- Opel topik
- Intel Core i5 / i7 / i9 "Alder Lake-Raptor Lake/Refresh" (LGA1700)
- Házimozi haladó szinten
- PlayStation 4
- Linux kezdőknek
- További aktív témák...
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Eladó Steam kulcsok kedvező áron!
- Windows, Office licencek kedvező áron, egyenesen a Microsoft-tól - Automata kézbesítés utalással is!
- Windows 10 11 Pro Office 19 21 Pro Plus Retail kulcs 1 PC Mac AKCIÓ! Automatikus 0-24
- Játékkulcsok olcsón: Steam, Uplay, GoG, Origin, Xbox, PS stb.
- AKCIÓ! AMD Ryzen 9 7950X 16 mag 32 szál processzor garanciával hibátlan működéssel
- Bomba ár! HP EliteBook 850 G2 - i5-5GEN I 8GB I 256GB SSD I 15,6" FULL HD I Cam I W10 I Gari!
- AKCIÓ - 122 - Lenovo Legion Pro 5 (16ARX8) - AMD Ryzen 7 7745HX, RTX 4070 (48 hónap garancia!)
- BESZÁMÍTÁS! Asus B760M i7 12700KF 32GB DDR4 512GB SSD RX 6800 16GB Rampage SHIVA FSP 700W
- LG 42C3 - 42" OLED EVO - 4K 120Hz 0.1ms - NVIDIA G-Sync - FreeSync Premium - HDMI 2.1 - A9 Gen6 CPU
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: PC Trade Systems Kft.
Város: Szeged